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ABSTRACT 


Herein, we discuss a generalization of the semiclassical 
cubic spline known in the literature as the exponential spline. 
In actuality, the exponential spline represents a continuum of 
interpolants ranging from the cubic spline to the linear spline. 
A particular member of this family is uniquely specified by 
the choice of certain "tension" paraimeters. 

We first outline the theoretical underpinnings of the 
exponential spline. This development roughly parallels the 
existing theory for cubic splines. The primary extension lies 
in the ability of the exponential spline to preserve convexity 
and monotonicity present in the data. 

We next discuss the numerical computation of the exponen- 
tial spline. A variety of numerical devices are employed to 
produce a stable and robust algorithm. An algorithm for the 
selection of tension parameters that will produce a shape 
preserving approximant is developed. A sequence of selected 
curve-fitting examples are presented which clearly demonstrate 
the advantages of exponential splines over cubic splines. 

We conclude with a consideration of the broad spectrum 
of possible uses of exponential splines in the applications. 

Our prima'*-'" emphasis is on computational fluid dynamics 
although the- imaginative reader will recognize the wider 
generality of the techniques developed. 


V 


Notation 


a < . , . < = b 


^i= - x^ (i = 1,. .. ,N) 


p.= tension parameter (i = 1,...,N) 


end conditions; t' (a) = f (a ) , (b) = f (b) 


f = data 


exponential spline interpolant 


s = cubic spline internolant 

(fj - f.) 

bi= (a) 


f . . , -f . 

b.= 

1 h. 


'’i-1 


(i 


^N+l = *■ (b) - 




1 Pi 2 

i = fi^-sT’/Pi 


1 1 


■>i = tPi ’/Pi 

1 1 


(i = Ir 


= sinh (Pj^h^) 


= cosh(p^hj^) 
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Preface 


A preoccupation with problems of interpolation and 
approximation may be traced back to the dawn of mathematical 
enterprise. The primary impetus for these investigations 
was the desire to determine the motions of the heavenly 
bodies. Indeed/ the historical record [ipl] contains many 
practical computations performed by the Babylonian scribes. 

As an example, one such calculation employs linear interpola- 
tion in a table to predict the risings and settings of 
Mercury. Furthermore, other orbital calculations made during 
this period reveal that higher order polynomial interpolation 
was also in use. 

An early example of an approximation method that did 
not reduce to straightforward interpolation was Archimedes' 
estimation of ir [P2] . His technique utilized the approxima- 
tion of a circle by a sequence of inscribed and circumscribed 
polygons. Moreover, he provided error bounds for this 
procedure, which may very well be a "first" in approximation 
theory. In modern parlance, we would dub this approximation 
by linear splines (see below) . 

The piecewise-linear approximation scheme reappeared in 
Euler's work [P3] on the numerical solution of ordinary 
differential equations (ODE's). This in turn was a key 
ingredient of the Cauchy-Peano existence theorem for ODE's [P4] . 


The eighteenth century also witnessed the full blossoming 

of polynomial interpolation [P5,P61 culminating in the 

Newton and Lagrange forms for the interpolating polynomial. 

In spite of its theoretical appeal, polynomial 

interpolation suffers from several serious drawbacks. 

First of all, since polynomials are analytic functions, 

any local modification to the data entails a global effect 

'til 

on the interpolant. Also, since N+1 points require an N— 
degree polynomial interpolant, very frequently the result 
is a curve with undesired undulations. A problem of a much 
more serious nature is the Runge phenomenon [P7] . Runge's 
example illustrates the disturbing fact that as the mesh 
width vanishes, the pc.lynomial interpolant does not neces- 
sarily converge to the function being approximated. 

One solution to these prololems is to use a polynomial 
of degree m (m small) for the first m+1 data points, another 
polynomial for the next m+1 data points, and so on. 
Unfortunately, this procedure, called piecewise-polynomial 
interpolation, produces an interpolant that belongs only to 

Such was the state of affairs until Schoenberg 
introduced polynomial spline functions [P3] in the mid-1940's. 
His idea can be condensed as follows. Locally, i.e. 
between two consecutive data points, the interpolant is to 
be a polynomial of degree n while the global interpolant is 


only required to belong to '^N+1^ * results 

in N(n+1) ~ (n-1) conditions for the determination of 
N(n+1) polynomial coefficients. That is to say, we have 
an (n-1) -dimensional space of polynomial spline interpolants 
to the data. Extra constraints are typically provided in 
terms of end conditions. Note that for n - 1 we obtain the 
previously alluded to linear splines. 

A popular choice is the case n = 3, i.e. cubic spline 
interpolation. The use of such low degree polynomials 
reduces the risk of wiggles, while second derivative conti- 
nuity is sufficient in many applications. An additional 
attraction of the cubic spline is that it possesses a direct 
analogue in beam theory. This is the draftsman's spline, 
whence comes the name of this mode of approximation. 

Since their introduction, splines have been studied 
intensively. Convergence of interpolatory splines has been 
established, as well as convergence of higher derivatives 
provided the function being approximated is sufficiently 
smooth. In general, the rate of convergence depends on 
the degree of smoothness of this underlying function. 

The practical utility of cubic splines is quite 
evident from their widespread use as finite element basis 
functions, in collocation approximations to differential 
equations, and in geometric and data-fitting applications. 

At first glance it would seem that many issues in practical 
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problems of interpolation and approximation have been 
resolved by their introduction. 

This is true to a limited extent. However r cubic 
splines can and do produce spurious oscillations in the 
interpolant. In some cases this is merely a nuisance but 
in others it can prove to be detrimental. For example, 
in combustion calculations it could produce an unrealistic 
detonation, or in computational aerodynamics it could 
result in the generation of a nonphysical shock wave. 

Spath [47] first proposed the exponential spline as 
a remedy to these difficulties. We arrive at the exponential 
spline by returning to beam theory. We adl a tensile force 
which has the effect of pulling the beam taut between the 


e 1 1 4“ ^ 4* o 4» •! 4 vs 4» ^ T •kvsXa 4 vs^*i ^«»vs^vs_ 

^ l<io j. u xnwxuCiv;»P 

entials in place of higher order monomials. Pruess [35,37] 
has rigorously established that for sufficiently great tensile 
forces the exponential spline so produced mimics both 
convexity and monotonicity properties present in the data. 

The work at hand gathers together the principal existing 
results related to exponential saline interpolation and intro- 
duces a number of new contributions to the state-of-the-art in 
the theory computation of exponential splines. Some 
novel applications are then considered, in particular the 
treatment of compressible fluid flows, where it is shown 
that exponential splines permit the simulation of shock waves 
with negligible overshoots in the computed solution. 
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In the development of the theory of exponential splines, 
we first detail the boundary value problem for the spline 
under tension [42] followed by its explicit solution in 
terms of second derivatives [35] . The translation of this 
second derivative formulation into the corresponding first 
derivative formulation is then developed. The exponential 
spline is then placed within the more general framework of 
piecewise L-splines. This leads us to define higher order 
tension splines. The possibility of Hermite interpolation 
by exponential splines is then considered. Next we derive 
certain extremal properties of exponential splines. Conver- 
gence properties of exponential splines originally obtained 
by Pruess [35] are established via a modified procedure. 

In addition, these results are extended to include third 
derivatives. Next, a review of Pruess' [35] resmlts on shape 
preservation properties of exponential spline interpolation 
is given. The cardinal spline basis on finite knot sets is 
introduced, various properties are established by extending 
the arguments of Birkhoff and de Boor [7] , and further 
properties are obtained by a new procedure. Finally, the 
B~spline basis is derived together with certain ancillary 
considerations. 

The consideration of computational matters begins with 
the direct solution of the spline equations [2] . Bounds for 
the condition number of the tridiagonal matrix are derived. 



For the second derivative formulation this was supplied by 
Pruess [35] while for the first derivative fomulation this is 
new. There follows an analysis of the iterative solution of the 
spline equations, including a discussxon of the optimum relaxa- 
tion factor. Next is a treatment of spline end condi- 
tions. Both the techniques used and the results obtained 
are unavailable elsewhere. An alternative power series 
representation, as suggested by Pruess [35] , is derived 
for small hyperbolic function arguments. New parameter 
selection algorithms are given which produce co-convex 
and/or co-monotone interpolants . This complements the 
non-constructive existence proofs previously noted. The 
periodic exponential spline is then detailed. A variety of 
numerical topics is next considered. Finally, we present a 
sequence of examples illustrating the inherent superiority 
of exponential splines to cubic splines. 

The subject of the application of exponential splines 
has largely been neglected in the literature [17,39,45]. 

We commence with a broad spectrum of geometric applications 
in computational fluid dynamics. We then take up the approxi- 
mate solution of the Laplace, heat, and wave equations using 
exponential splines. After this we embark on an investiga- 
tion of the possibility of using the properties of expon- 
ential splines to inhibit the appearance of wiggles and over- 
shoots in the numerical simulation of flows with shock waves. 
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while retaining a high order of accuracy. We commence with 
the numerical solution of a one dimensional model problem 
and conclude with the simulation of two dimensional inviscid 
fluid flow in a channel. We develop a scheme which uses 
exponential splines to approximate spatial derivatives, 
while employing a fourth order Runge-Kutta time stepping 
procedure. Along the way, we generalize to our scheme a 
result of Lax and Wendroff [28] concerning the computation 
of weak solutions of nonlinear hyperbolic conservation laws. 
There follows a discussion of the stability and accuracy 
of the proposed scheme and a number of alternative schemes. 
Artificial viscosity is included via the coupling of Flux 
Vector Splitting [50] with the upwinding of derivatives [24] . 
We note that our treatment of Flux Vector Splitting contains 
a new result concerning the nature of the split Jacobians. 
Boundary conditions are enforced in a consistent fashion by 
performing a local analysis of the characteristic variables 
[19,22]. The significant achievement here is that the 
proposed scheme yields a numerical solution that is third 
order accurate (fourth order accurate on a uniform mesh) 
in smooth regions of the flow, while accurately capturing 
any discontinuities that arise without significant 
overshoots/undershoots. 
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Part I ; Theory of Exponential Splines 


I . 1 . Overview 

In this first part we discuss exponential splines 
from a theoretical viewpoint. Starting from the analogy 
of a cubic spline to a beam we add a tension term to the 
governing differential equation thus giving rise to the 
exponential spline. The solution to this boundary value 
problem expresses the exponential spline in terms of its 
second derivatives at the knots. This is the form we 
prefer since it leads to simpler expressions than a repre- 
sentation in terms of the first derivatives. However » 
since it will be useful to us later, we next derive this 
other system of equations. The exponential spline is then 
inspected in the context of generalized splines. This leads 
us to consider higher order tension splines and higher 
degree interpolation. Certain extremal properties are 
then derived. Convergence of the approximating spline is 
next studied through the proximity of the interpolating 
cubic and exponential splines with the same end conditions. 
The shape preservation capabilities of exponential splines 
are then reviewed. Finally, we add to the number of possible 
representations by introducing the cardinal spline and 
B-spline bases. 
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1.2. Derivation of Exponential Spline Equations in Terms 
of Second Derivatives 


The cubic spline is well known to have the following 
analogue in beam theory [2] . Consider a simply supported 
beam with supports Then s(x), the deflection 

of the beam, is a solution to 

[E*I»D^]s = M 


between successive supports. Here 
E = Young's modulus 

I = cross sectional mom,ent of inertia 
M = bending moment. 


Under the assumption of weightlessness, M is a piecewise 
linear continuous function with break points at the supports. 
Thus, differentiating the above twice we arrive at the two- 
point boundary value problem on (i = 1,...,N): 


[D ]s = 0 , s(x^) = f^ , , 

S"(x.) = Sj , , 

2 

where s'.' and s'.'., are chosen to ensure s e c [a,b] when 
1 1+1 

s' (a) and s' (b) are givein. Note that [D^]s = 0 on s 

is a cubic there. 

The cubic spline so defined has a tendency to exhibit 
unwanted undulations. Correspondingly, the above analogy 
suggests that the application of uniform tension between 


2 


supports might remedy the problem [42,43]. The beam 
equation on then becomes 


[E-I-D - t. I] s = M . 
1 


Letting pf = (t^/E*I) leads us to define the 
exponential spline [47,48,49] as the solution to the 
boundary value problem on (i = 1,...,N): 

[D^-p?D^]T = 0 , T{x^) = , '"■(Xi+i) = , 


T"(X.) = tv , = ■'l+l ' , 


with (i = 1,...,N+1) as yet undetermined. 

Let us pause to note that 

(i) p^ -> 0 =>“ [D^]T = 0 , i.e. the cubic spline, 

(ii) p. ~ [-i^ - D^]T = 0 => [D^]T = 0 , 

^ Pi 

i.e. the polygonal 


("broken line") interpolant. 

We now solve this boundary value problem (BVP) for 
the exponential spline. Let t(x) = x"(x), then t(x) is 
a solution to the BVP 


t" - p?t = 0 
Therefore 


t(x^) = 


T'.' 

1 




TV , 
1+1 


In the following paragraphs and throughout the thesis, 
s(x) will represent the cubic spline and t ( x) the exponential 
spline. 
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= -57 Vi Pi<*i+l-*> + ■'1+1 Pitx-Xi,)} 

Hence t(x) satisfies the BVP 

= i: {■'i Pi<=‘i+i->‘> + ■'i+i Pi(x-x.)} 


"(*i> = ' "O'i+V = *i+r 


Therefore 


•nx) = {t? sinh Pi(Xi^.i-x) + sinh p^(x-x^)} 

Pi°i 

TV x.,,~x T'' x-x. 

+ /f i) T+1 + - T+l v ^ 

^ ^^i 2^ h. + '^i+1 2 ^ 

Pi T 1 

p.x -p.x 

(= + B^x + C^e •*• + e ) . 


The requirements of first derivative continuity at 
the points of interpolation yield expressicms for the 
determination of (i = 1,,.,,N+1). Specifically, for 
i = 2, . . . ,N we have 


’ <4> = pf§7 {-^Vi + "i+i} * ^ (*i+i - 

■L « 4 » • 


II II 

T, ,-T, 




Also 


If II 

T, -T. 


XI ^ 1 p^ 

X ' (x ) = — i ■f“T” + T” C 1 + /f -f + \ 

'^N+1^ PnSn \ N+l'-N/ ^ h^ \^N+1 V 2 /* 


4 



Hence, xV (i = 1,...,N+1) are the solution of the tri- 
diagonal system 


‘^l^l ®1^2 “ ^1 ' 


‘i-l"i-l <Vl+^i)"i Vitl = ^i ' N), 


^ ®n'’’N ‘^N^N+l \+l ' 


P • c 

where e. e [1 - ^,/p2 , dj. = [Pi ^ - j^l/p? with 

11 11 
= sinh(pj^h^) , = cosh (Pj^hj^) • is uniquely 

defined once xj (i = 1 ,...,n+ 1) are determined. 
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1.3. Derivation of Exponential Spline Equations in Terms 
of First Derivatives. 


Recall that on the exponential spline is 

the solution to the boundary value problem 

(*) [d‘^^“P?D^] T (x) = 0 subject to 

'T(5Si) = fi f = ^i+l ' t^'(x^) = t| , ^^i+1^ '^i+1' 

The general solution of (*) is 

. (i) Pi<='i+l"='>+ k'^’x + K<^> - 

(**) ft(x) = Kj[^'e ^ + *2 ® + Kj X + 


.T» (x) = “PiK£ 


,„^Pi(x,,,-X)^ ,„^P,(X-X,)^ 


i“2 


(i) 


The determination of (j = 1,2 ,3 ,4) then consists of 

substituting into (**) and enforcing the boundary condi- 
tions. 

However, the solution of the resulting 4x4 system of 
equations becomes quite tedious thus making an alternative 
route desirable. We instead use previously obtained results 
to derive the desired tridiagonal system. 

Recall that on (i=l,...,N) 

^ Pi^i i 

T'.' . , “TV 


' "" p^ {“'^i Pi^^i+l"^^ ^i+1 Pi^^'^i^} 

ET {^^i+l“^ 


■fj - }. 


T ! , = • - d . 1 T - e . T V + 

i“l 1-1 1-1 1-1 1 


T . 
1 


= e . T T •' + d . , X V + 

1-1 1-1 i-i 1 


V"i-i 

Vi 
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Equating these results yields 



This of course must be modified at the boundaries. 
The special case = p, h^ == h Vi yields 



Furthermore, if p. = 0 Vi then we have e. = h./6 and 

1 1 1 

dj: = h^/3. Consequently, the above relations reduce to 
the familiar cubic spline equations. 
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If we wish to specify T£ = f"(a) and/or = f"(b) 

we may use the relations 


^1 
— 2- 
di-ei 


72 2 

-^N N 


T. + 


T ' + 
N 


‘ ®1 ” 

T 1 = 

• * 
1 


^2 2 
dl-eiJ 

^2 

d -e 

L *j 

• 


T * = 

1 

• 

,2 2 
L^n nJ 

N+l 




■f -f 
2 


- f'(a) 


f -f ‘ 
N+1 N 


*N 


+ f'(b) 


If we want the weights in front of t J , , t • t • , 

1-1 1 1+1 

to sum to unity we may multiply the i~ equation by 




producing 




d..j^(di-6j) 


• X.’ 
1-1 


(d.+e.) l(d..^-e._^)+(d^-e.)lj 


y •T ! 
1 


e. (d. 1 -e. 1 ) 
1 1-1 1 - 1 ' 


(d,+e.)[(di_i-ei_i)(d,-ei)] 


'^i+1 


di - e^ ^i"^i-l 


+ 


d . T -e . , 

1-1 1-1 


1+1 1 
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We may now use our relations between and {'i 

to establish 


= ^i- “TT'*' "iti 


^"^i . 1 

- H -" ipar 


^i+l”^i 

h. 


sinh p^(x-Xj^) “ sinh Xj^_^^-2x+Xj 


+ "i 



2„ 

2, 


p. S . 
1 

Pi”! 

I 

’sinh Pi(Xj^+i-x) 


u?-«; 

L P?s, J 



2 ,2 
e . -d . 
1 1 


sinh p. (x-x . ) x-x . 
1 1 1 


p?s. 


r . 2 u 

p . h . 
1 




( 

sinh Pi(x.^i-x) 

^i+r^ 

1 2 .2 

L p|Si 

„2v, 

P^hiJ 




J- /|2 


sinh p. (x-x . ) 
1 

p?S. 


x-x. 


2u 

p. h. 
1 


I .N+l 
k'^k=l 
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1.4. Generalized Splines 


In deriving the equation for the exponential spline 

4 2 2 2 2 2 

we used the factorization D -p.D = (D - p. I)D . The 

JL aU 

4 2 2 2 2 

symmetric factorization D -p/D = (D +Pj^D) (D -PiD) , 
however, permits an interpretation in a generalized 
spline context [2,3,4,21,33,34,40,41,51]. 

In general, let L be a linear differential operator 
of order m:. 

L = Pq(x)d"' + Pj^(x)D^“^ + ... + p^_j^(x)D + Pm<^) 

jn ^ 

with Pj^(x) e c [a,b] ; k = 0,1,..., m. Let L be the 
formal adjoint of L: 

L* = (-1)“ D‘"(Pg) + d”~^(Pj^) +...- D(P|^_J^) + p_j|. 

A generalized (interpolatory) spline, s, associated 
with L is defined as s s [a,b] ; s 6 

where it satisfies L*Ls = 0, i = 1,...,N; and s(x.) = f. , 

^ X 

i = 1,...,N+1. (Also known as L-splines.) 

We note the following special cases: 

O A. 

(i) m = 2,) L = D =» L* = D ; thus L L = D , i.e. 
cubic spline interpolation. 

(ii) m = 2 , L = - pD L* = D^+pD; thus 

* 4 2 2 

LL=D -pD,i.e. hyperbolic spline 
interpolation [6,42,43] . 
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We may instead insist that s satisfy = 0 on 

. Such splines are called piecewise L-splines 


[3 3] . If we let - p^D then + p^D 


) 


if 4 2 

«=» L.L. = D - pto", i.e. exponential spline interpolation. 
The principal advantage of this f ramewou.'}/ Iteis that 


N 


the functional E 
i =1 

piecewise L-spline 


^i+1 


w 


X . 


2 

(L^f) dx is minimized by the 
^ fulfilling the end conditions 
(L^T) = 0 (k = l,...,m-l) at x^ and (L^^t) = 0 


at X 


N+l* 


In a subsequent section we specialize this 


result to the exponential spline and use it to produce 
further extremal properties. 


If 
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1.5. Higher Order Tension Splines 


In this section we generalize the exponential spline. 
The starting point for this discussion is the characteri- 
zation of the exponential spline as being in the null 
4 2 2 

space of E = D - p^D between knots. One possible 

JL 

extension would be to consider piecewise solutions of 
[D^ + a.p - p?D^lt(x) = 0 . 

JL 

This has the desirable feature of reducing to [D^]t = 0 
for pjj^ = 0 and [D^]t = 0 for p^ = ». However this operator 
does not permit a factorization as L L since a ^ 0 
implies a dif feirential operator that is not self-adjoint. 

As such it does not produce piecewise L— splines. In fact 
the most general fourth order homogeneous differential 
operator with real constant coefficients (lead coefficient 
= 1) that permits such a decomposition is precisely the 
exponential spline operator E. 

Hence if we want a generalizatim using constant coeffi- 
cients that produce L-splines we must increase the order 
of the operator. Thus, consider the sixth order ODE 

[D^ + + YD^ + 6D^]t(x) = 0 . 

3 2 * 3 2 

Let L = D + UD + TiD => L = - D + )iD - riD , Thus 

L*L = - + (ii^-2n)D^ - ri^D^ . So that multiplying 

the ODE by -1 we have 
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[L*L]t(x) = 0 


where a = y = 0 (by self-adjointness of the differential 

2 2 

operator) ,6=n , g=2n-U. I.e. 

[D® + (2n-1i^)D'^ + n^D^]t(x) = 0 
or 

[D^(D^+VlD+nl) (D^-UD+nl) ]t(x) = 0 . 

The characteristic roots will then determine the basis 
functions for the null space. The double root of zero 
admits 1 and x. The other roots are 

f -y + /y^-4n y + /y^-4r| 1 


If = 0 we admit x^, x^ , e If y^-4ri = 0 we 

admit xe”^^, xe^^. Otherwise we have four 

distinct A’s and the corresponding basis functions. Note 
2 

that for y > 4n we obtain hyperbolic functions while if 
2 

y < 4r) we obtain trigonometric functions. 

All this leads us to the following definition of 
tension splines of order 2m (degree 2m-l) . Let 

• m 

have the factorxzation T = (-1) L L where 

L = d"' + + . . . + + 3^D => 

L*= (-l)V + + ... + 32^^ 
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Then t(x) is a tension spline if it is a piecewise solution 
of 


[T]t = [(-l)"^*L]t = 0 . 

Therefore 

D [D + $_ ,D +. . . + 3-D+3, ] * [D -3„ iD + + 

m-i. ^ 1 m-i 

+ (-1)"'"^32D + (-l)"^"^3^]t = 0 . 


Again the double root admits 1 and x as basis functions 
for N(L*L). The other basis functions are determined 
by the remaining roots of the charac ’-eristic equation. 

This generalization allows us to pursue one of two 
routes. First we could require a greater degree of 
smoothness at the knots. The sixth order operator 
discussed above would produce a quint ic tension spline 
in this context. On the other hand we could require 
higher order interpolation at the knots. Our previous 
example then amounts to a quintic Hermite interpolant 
under tension matching function values together with 
first and second derivatives. 
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1.6. Hermite Interpolants 


The spline fit by its very nature is a global scheme 
as it requires the solution of a tridiagonal system. On 
the other hand osculatory, or Hermite, interpolation 
provides a local means of interpolation [15] . For this 
reason Hermite interpolation is many times preferred over 
spline interpolation. 

Hermite interpolation requires the specification of 
a certain number of consecutive derivatives at each knot. 

The particular number may vary from knot to knot. 

The local nature of this approximation comes 

to us at the expense of smoothness. For example if we 

specify first derivatives we have a cubic Hermite 

. 1 2 
interpolant which is only C as opposed to the C smooth- 
ness provided by the cubic spline. Moreover, the required 
derivatives are typically not available and must themselves 
be approximated. 

With these provisos duly noted, we now proceed to 
discuss Hermite interpolation by exponential splines. As 
pointed out in another section a higher degree of contact 
may be achieved by resorting to higher order tension 
splines. 

For ease of presentation, we restrict x ^ [0^,1] with 
f(0) = fQ , f(l) = f^, f'(0) = fj, f'(l) = q given. 

In this setting exponential Hermite interpolation is effected 
by 
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h(x) = fQ<pQ(x) + f^<pj^(x) + 

where (p^r (pj^, ^q, are the cardinal functions. These 
functions are defined as follows. 

c()q(x) = aQ+bQX+CQeP^+dQe"P^; c})q( 0)=1, <1)^ (l) =(j) • (O) =<j>^ (1) =0 

4)i(x) = a3^+bj^x+CieP^+d3^e'’P^; <J>^(1)-=1, tj)^ (0) =cj)J^ (0) =<j>^ (1) =1 

^q(x) = iQ+bQX+5QeP^+dQe"P'^; ^^(0)=1, ( 0) =5 q (1) =^q (1) =0 

^^(x) = aj^+b^x+a^eP^+d^e'P^; ^^(1)=1, { 0) (1) =f | ( 0) =0 . 

This leads to 

<|)q(x) = j(2 - 2 cosh p + 2p sinh p) + (-2 p sinh p)x 

+ (1 - e e^^ + {l-e^)e ^^|/|4-4 cosh p + 2p sinh p| 
(|)j^(x) = |(2p sinh p)x + (1 - e^)e^^ + (1 - e e 

/|4 - 4 cosh p + 2p sinh p| 

^q(x) = |p(2 - 2 cosh p)x + (-1 - p + e^)e^^+ (1-p-e e 

/ |p(4 “ 4 cosh p + 2p sinh p) j 
(x) = |(2 sinh p - 2p) + p(2 - 2 cosh p)x 

+ (“l+p+e”^) e^^+ (1+p-e^) e~^^| / |p{4 - 4 cosh p+2psinhp)j. 

Notice that 

<|)j^(x) = ff)Q(l-x) 

^^(x) = 5 q(1-x) . 
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! 


Note that all four basis functions involve e^^ and 
e”^^. The computational complexity may be reduced by the 
following construction [30] . 

Let 


h(x) = fQ^j^(x) + fj_$j^(x) + 


where 


*1 

(X) 

= 

1-x 


(x) 

= 

X = ij^^d-x) 

*2 

(x) 

= 

a2+b2X+C2e^^; ’p2(0)=0, 1 ^ 2 ^!)“^' 

*3 

(x) 

= 

a^+b^x+c^e"^^; 

,B are 

as 

yet undetermined . 


This produces 


(0)=a 


'l'2(x) = a 


’l'3(x) = 3 


-It (1-e^) x+e^^ 
1+p-e^ 

-l+(l-e~P)xte~P^ 
1-p-e ^ 


Therefore 


*^(i) 


Ojd) 


♦3(0) 


♦ 2 ( 0 ) 


1-e^+pe^ 
1 + p “ 


e'- 

rP 


r.w ■ 

1 - p - e ^ 
1 + p - e*^ 


_ -e^+l+p 
1-e^+pe 


p n"» 


Letting q 


l-e!tg eg 

1+p-e^ 
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p 


= q-ip2(0) 
ilJ^(O) = q-ip^(l) . 

y\ 

Now ^ slope of m 

we require that 


f^-fg. Hence 


and 


I • e • / 


and 


A^ 2 ( 0 ) + £ 11 ^ 3 ( 0 ) = 


Ai^'^d) + Bi|^3(1) = 


fo - m 


f - m 


+ Bq^/^ 3 { 1 ) = fg “ m 


Aq^2<0) + B>|^^(1) 




- m 


or 


1-2(0) 

ql-jU) 


"A" 


e 

1 

-0 

»w 

1 

ql-jCO) 

1-^(1) _ 


_B_ 




"a 

1 

- 2 —, 

- l-^Cl) 

1 

-q’/^;J(l) 


1 

i-h 

■ 0 - 
1 

3 

1 

_B_ 

(1-q 

_-q>p2^®^ 

^2^0) _ 


_ f^-m_ 


Now let 


and 


=> 



1 ^ 2 ( 0 ) 

- _L_ - 


1+p- 

-e^ 


1+q 

2(l-eP)+p(l+eP) 


^’(1) 

1 

l-q ■ 

1+p-e^ 

p(l-p) 


“A“ 


r 1 

l-q 

-q ^ 

l-q 


1 

i-h 

0 - 

1 

3 

1 


_ B_ 


Z3L. 

1+q 

1 

1+q 
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Equally as simple would be to let 


= 11 ^ 3 ( 1 ) = 1 







f|--m 


i_ q-™_, 


what is important here is not so much the result as 
the technique. Specifically, suppose we are provided 

Q’-y* — Q’v ^ 

with two new functions e and e . Together with 
1, X, e^^, we are now required to match f, f, f" 

at X = 0,1. The cardinal spline approach would have us 
construct the six new basis functions 


♦ o(x) = ao^■boX+OoeP='+doe-P='+eoe°>=^■foe-'’^■ 

<|.q( 0) = 1, cfod) = ♦ 0 ( 0 ) = 4>g(l) = ♦2(0) = 4>3(1) = 0 

c()j^(x) = 4 >q( 1 -x) 

? 0(x) = ioH-boX-fSoeP^+doe-P^teoe^^+f oe-^ 

?q( 0) = 1, ^o(O) = $q(1) = ^^(1) = ^q(O) = ?"(!)= 0 

^l(x) = ?q(1-x) 

?q(x) = aQ+bQX+CQeP^+lQe"P^+eQe'^^+lQe ; 

?g(0) = 1, ?q(0) = ?q( 1) = (0) = I'd) = ?5(1) = 0 

?j_(x) = ?q(1-x) . 
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On the other hand our alternate technique would have 
us calculate h"(0) and h''(l). We would then define 

ip^(x) ^ + b^x + c^e^^ + d^e”^^ + e^e^^^ ; 

’1^4(0) = ''^4(1) = “ 

ipg(x) = ag + bgX + Cge^^ + dg6 + e^e ; 

i|^g(0) = ijjg(l) = = 0 , i|^"(0) = 3. 

Finally, we would set 

H(x) = h(x) + A»^ 4 (x) + B^g(x) 

where 

AipJ(O) + B«P"(0) = fg - h”(0) 

and 

Ati^J(l) + B^” (1) = f £ - h"(l) . 
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1.7. Extremal Properties 


Results in the literature on piecewise L-splines [33] 

provide certain extremal properties associated with either 

J 2 

of the functionals (f" + pf) dx. In this section we 

. ^ 2 2 2 
derive a third functional, [ (f " ) + p (f ' ) 1 dx, and 

a 

then establish the associated extremal properties. 

We begin with the following 


Lemma . ^ 



a 


+ pu ' ) 


u(v” 


+ 



dx 


|u'v-uv' + puv 


} 


a 


Proof : 

•3 




a 


. } dx = I |vu” + pvu’ - uv" + puv'l dx 
a 
3 

= I |vu" - uv" + p(uv)'| dx 
a 



3 ' 

3 

f 

3 

vu ' 

- 

V ' u ' dx - uv ' 

4- 


a J 


' a • 


u ' V ' dx 


+ puv 


a 


a 


u'v - uv' + puv 


Q.E.D. 


a 


Now let p(x) be a step function 9 p(x) = p^ on 
[Xi,Xi_|_il ; i = 1,...,N. In addition let f have an 
absolutely continuous first derivative and a square 
integrable second derivative. Then notice that 
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r t) 

J (f " + pf ' ) ^ dx = j [f " T'» + p(f -T ' ) ] ^ 


dx 


U 

I (T" 


I \ 2 


+ I (T'' + pT')‘‘ dx 
a 

b 


+ 2 I [f - T» + p(f .-T*)] • (T" + pT') dx. 


Inspect this last term, 
b 

J [f - T« + p(f -T')] . (T»+ pT') dx ; 
a 

by letting u = f-T and v = t" + px* in our lemma. This 
yields 


^i+1 


I J {'T" + pT') [f"-T" + p(f *-T«)] - (f-T) + 

X. 

X 


P'T 


III 


+ p(T px") ] dx 


N r 

= |(f ’-X') (T‘'+pT') - (f-X) (X'"+pX”) + p(f-X) (T»+pf)l''i+l 

X . 

1 


Letting x interpolate to f at produces 


(x"+px') [f ''-X»+p(f -T •) ] 


N f 
i=l J 

X . 

1 

N f ^ 

= |(f '-X') (X” + px')| 


‘i+1 


= (f '(b) - X* (b)) • (x"(b) +px' (b)) - (f • (a)-x' (a)) (x" (a) +px • (a) ) 
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Therefore 


b b b 

j (f'+pf')^dx = I [f"-T''+p(f -T')]^dx + I (T''+pT')2dx 

+ 2| (f ' (b)-T' (b) ) • (T" (b) + pT' (b) ) - (f ' (a) - T' (a) ) • (t” (a)+pT» (a) )|. 


Adding these two relations then leads to an extension of 
Holladay's theorem: 


Theorem. 


b 

I [(f'')^+P^(f )^] dx 
a 



[(T")2+p2(x')2]dx 


a 


b 

= J [(f"-T")^+ p^(f'-T')^] dx 
a 

+ 2|(f • (b)-T' (b) ) -T" (b)-(f ' (a)-T' (a) ) 


This leads us to define [32] the inner product 

2 

(f,g) = f"g" dx + p f'g’ dx together with the 

•’a ■'a 

induced pseudonorm 

f 'f 2 2 2 

ilfle = I J I(f") + P (f) 1 ax| 

a 

This allows us to restate our previous result as 

II fll^ = llf~Tl|2+||Tll^+ 2 / (f ' (b)-T' (b) ) -T" (b)-(f • (a)-T' (a) ) •T»(a) y . 
e e e J 

So that if T "(a) = t» (b) = 0, or x* (a) = f ' (a) , x’ (b) = f ' (b) 

we have Ilf 11^ = llf-xll^ + Bxll^. We thus have arrived at the 
e z 6 
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following 


2 

Theorem (Minimum Norm Property) . Let g 6 c ra,b] 

N4*l 

and interpolate to f at . Then *9*^ is a minimum 

when g = 9 T"(a) = T"(b) = 0. If we restrict g'(a) = f'(a) 

and g'(b) = f (b) then igl_ is a minimum when 
g= T 9 T’(a) = f'(a), T' (b) = f ' (b) . In both cases this 
t is unique. 


Proof (of uniqueness): Suppose there is also a t(x) 

with the minimum property. Then 

llTllf = IIT-Tllf + ITH? 
e e e 

and likewise 


Therefore 


and 


iTllf = |T-f|2 + |T||2 . 


T-T|2 = |t|i 2 „ IT |2 > 0 
e e e — 


m-TIlf = |T|2 - |T|2 > 0 
e e e — 

b 

It-tI|2 = I [(t"-t'»)^ + p^(T'-T')^] dx = 0 
a 

-> x«'_x" = 0 =>t-t = Ax+B. 

But (T-T) (a) = (T-T) (b) = 0=»A=B=0. Therefore T = f. 


This leads us to the 


Q.E.D. 
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Theorem (Best Approximation Property) . Let f have an 

absolutely continuous first derivative and a square 

integrable second derivative. Let t be the interpolatory 

exponential spline with T'(a) = f (a) and T'(b) = f ' (b) . 

Let T be any exponential spline with knots at’ 

and tension p(x). Under these conditions t is the best 

approximation by these exponential splines. I.e. 

llf“T||^ > Ilf-Tll . 
e — e 

Proof ; Let g = f-T and t = t-t. Hence t is an 
exponential spline bt(x.) = t(x. )~t(x. ) = f(x. )- t(x. ) = g(x. ) 

-L aL JL Ua ^ 

and T'(a) = T'(a)-T'(a) = f'(a)-T»(a) = g'(a) and 
T'(b) = T'(b)-T'(b) = f'(b)-T'(b) = g'(b). Our 
Extended Holladay's Theorem => 

llgll^ = !lg-T||2 + ||^||2 
^ e ^ e e 

=»• Ilf-Tll^ = llf-T-T + TH^ + IIT-TII^ 
e e e 

or 

Ilf-Tll^ = Ilf-Tll^ + llT-TlIp . Q.E.D. 

e e = 

Note that we have strict inequality unless 

llT-xll^ = 0 => T» = T" and t' =: t' =>■ t = t+ax+B 
e 

=► 1 ' = t'+a=>-A= 0, i.e. X is unique up to an additive 
constant. 
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1.8. Convergence Results 


In this section we establish ratefi of convergence 
for the exponential spline in the limit of vanishing mesh 
width. Convergence rates for higher derivatives are also 
given for functions possessing a certain degree of smooth- 
ness. 

We begin by studying the proximity of cubic and 
exponential splines with identical end conditions. In 
what follows II • I is the max-norm for continuous functions, 


h = max h. , and = i^ax p. . 

■ 1 • X 


The following result has been obtained by Pruess [35] . 
Theorem 1. 

llD^(s-T)II < (26/3) h^”^ max |sV| (i=0,l,2), 

where, as before, s and x are the cubic and exponential 
splines , respectively. 

We present a companion result. 


Theorem 2. 


D^(s-T)fl < (26/3) p^^^ h"*"^ max |x”| (i=0,l,2). 

j ^ 


Proof ; Define 6 = s-x. We treat the case of 
specified end slopes. We then have 


+ 7 = 


3d, 

J- _ 1 

<r II i 


_ ^1 

' 1 — 1 

hj^ 2 


nr II 
2 
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‘i-1 


(SV , + 6V + 




6 V 


2(h,i_i+hi) i-1 i ■ 2THT3^J+h^ i+1 


®®i-l’*^i-l 

T •' X 

r3(di 

,1 

T •• J. 

r 6e.-h. “1 
1 1 

_2(hi_i+hi)_ 

i-1 ' 

-^i-1 



2(h..^^.h.) 

L. — t 


T V 
i-l-1 


(i=2, . . . ,N) 


— (S " 4- ("i '• 

2 ‘’n ^ *N+1 



^®N 1 

T " + 

r^-xi 


' i 

N 

[’’n J 


T ” 

N +1 • 


Now let 6^ = Power series expansions then verify 

the identities 


( 1 ) 

( 2 ) 

(3) 

(4) 

(5) 

( 6 ) 
(7) 


3e. , e? 

3 dt e? 

0 1 > - ^ 


0 > 


6e.-h. 0? 

J- > . ^ 

2 (h..^+h^) - 2 


0 > 

- 2(hi_i4.h.) ^ 




0 > 


3 (d^_ 3 ^+d^) 


— h . , +h . 
1-1 1 


- 1 > - p 


max 


0 < e./d. < I 
®i-l'*'®i 1 


Next let A = ^1 ' * * * ' ^N+1^ 


Then we have 


(I+E)A = r 

with the straightforward definitions. We thus have 
= j and Ilrll^ = max(Ir^!, max k-Mr j^|) 
However, using the above bounds, we have 
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lAJ < 

00 


I'll 

< 

^Ly “f 1 

TV 1 
1 ' 



I'n+iI 

< 

pLx”^ 1 

T£| 


t 

I'il 

< 


|TJ| 

4 


'r'„ 

< 

2 P^av*^^ 
'^max 

1 

|fil 



(1+E)"^I„ 

1 rl 

<« 1 «rl^/(l- 

'E'„) 

2 2 

4 p„^„h max 
~ “^max £ 



We can now use this to attain our goal. Specifically, 
6(x) € c^[a,b] and the conditions <S(Xj^) = = 0 

(i = 1,...,N) together with the Mean Value Theorem 


3^ e 3 = 0 6(x) = 6(x)-6(x^) 


=r 

i V 




6’(t) dt and 6'(x) = <S ’ (x) -6 ' (C . ) = f 

^ if 


6''{t) dt . 


However, 

6"(X) = S"(X)~T"(X) = 


x-x 


^ X . . , -X 


sinh p. (x~x. ) sinh p. {x. . ,-x ) 

_ TH , _ T " . ^ 

*i ^ 1 *i 

sinh p.h. sinh p.h. 

11 


= 6» 
i+1 


x-x 


+ 6» 
h. 1 


^i+l“^ 


+ T” 

^ i+1 


1 1 

x-Xji^ sinh p^(x-x^)” 


hj 


sinh p.h. j 
11 


+ TV 
1 


Xi^l"X sinh Pi(x^^^-x ) 


sinh p.h. 
^11 


Each of the bracketed terms can be expanded to reveal that 

2 2 

they are bounded by p.h^ / 3 . Hence 

^ 2jj2 p2jj2 

|6-(x)| < |6V^J + I6V| + ItV). 


2 ,2 


1 2-4-p^a^h2 max|TV| + ri.max]TV | .J2^- = ^ i®x|tv ] 
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so that 


y 6" 

(x)ll 

^ 26 2 ,2 
- X Pmax*’ 

1 T V 1 =>• 

' 1 ' 


II 6' 

(x)II 

< ^ max 

— 3 ^max ^ 

|t»| ^ 


II 6 

(X)l 

. 26 2 ,4 

< -Tj- p ^ h max 
— 3 ^max ^ 

l^v| . 

q.e.d. 

Note that max 
i 

|TVl 

is bounded as shown by the 

following 


argument. Divide both sides of each equation in the 
tridiagonal system by the diagonal term. The resulting 
system may be written as (I+E)^'' = b with the obvious 
definitions. Hence £ II bllog / (l-ll Ell . Now (6) and 

(7) above imply that II eH^ ^ 1/2 and thus that 
llT"ll < 2llbll . 2lbll^ is bounded as p ■ h . 0 and 

in fact ->■ SlIf'MI. These theorems may be used to 

X 

obtain results for II D (f-T)ll from known bounds 
for II (f-s) It . E.g. 

Corollary 1. If f e C^[a,b] then 3 k II D^f II , II D^f II ) 

independent of h ^ IlD^(f“T)ll £ kh^ ^ (i = 0,1,2). 


We now take up the convergence of the third derivative. 
We have on 


If 

6. -(SV 

(till ^ + X" 

° h. i+1 


5 ^ - 57 cosh p.(x-x.) 


+ T 


i + It Pi <='1+1-’' >] 


=> I 6"' (x) 



+ 


p . c . 

*^1 X 



• 2 max 
i 
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Known results for the cubic spline now establish the 0(h) 
convergence of the third derivative. 
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1.9. Shape Preserving Interpolation 


In this section we review the results of Pruess 
[35,37] concerning the behavior of exponential splines 
in the limit of infinite tension. Our main interest here 
is in the shape preservation properties of exponential 
spline interpolation. In what follows we assume a fixed 
set of data and uniformly bounded tension ratios, 

p /p . < P . 

^max' '^min — 

Let A(x) denote the linear spline of interpolation. 
Then we have 

Theorem 1. Given a sequence of exponential splines 
->■ CO for some i; then in any closed subinterval of 
(Xi,Xi^l), T" (x) ->■ 0 and t'(x) A.'(x) uniformly while 

T (x) X(x) uniformly in . 

This theorem gives us hope that we can produce co- 
convex and co-monotone interpolants using exponential 
splines with sufficiently high tension. The fulfillment of 
this expectation is the subject of 

Theorem 2 . If positive (negative), 

then for P^/ ^i+l sufficiently large t''(x) is 

positive (negative) in If ^'(x) is positive 

(negative) in (xj^_j^ ^ then for P^r Pf+i 

sufficiently large t*(x) is positive (negative) in 


We note that at the knots we have 


•c’ (x^) 

T" (x^) 




- + 


hi-i 




b. 

1 


a. ,-fd. "" 

1-1 1 


The cubic spline many times exhibits unwanted 
oscillations due to the emergence of overshoots and/or 
extraneous inflection points. The above results 
assure us that the exponential spline can remedy this 
situation for appropriately chosen tension parameters. 
We subsequently construct such shape preserving inter- 
polants. 
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1 . 10 . 


Cardinal Spline Basis 


The form of the Lagrange interpolating polynomial 
suggests the following basis for the exponential splines, 
with given knots and tensions [6,7,14,34]. 


Cq(Xj^) = 

1, 

Cg(Xj) = 

0 ( 

j=l, . . . ,N+1) , 

^O^^N+1^ “ ° 

C/(x,) = 

0, 

C.(K.) = 

6. . 1 

13 

(j=l ,...,N+1), 






i 

= 1, . . . ,N+1; 


0, 


0 ( 

j=l, . . . ,N+1) , 



These conditions uniquely define the cardinal spline basis 

{C. (x) Clearly 

1 1=0 

N+1 

T(x) = q . Cq(x) t f. . c. (X) + • 

In what follows we restrict ourselves to uniform mesh and 
tension. 

We begin by generalizing the arguments of Birkhoff 

and de Boor [7]. Let t(x) be the function on [x, , x„.,] of 

1 N+1 

the form 

t (x) = a + bx + ce^^ + de'^^ 

satisfying 

t (Xj^) -f (Xj^^) , t =f , t ' (Xj^)=f ' (Xj^) , t =f (x^^^) . 
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Then given the exponential spline fit to g(x) = f(x) - t(x) 
with zero slope end conditions r we can simply add t(x) to it 
to obtain the fit for f. Hence, WLOG we consider 
only functions 3f(Xj^) = “ f'(Xj^) = = 0. 

Hence we need only consider 


N 

T(x) = I f . • c. (x) . 
i=2 ^ ^ 

Lemma 1. Any function of the form e(x) = a+bxtce^^+de”^^ 
which satisfies e(0) = 0 and e(h) = 0 also satisfies 


e' (h) 


phc-s 
ph - s 

2 (l-c)+phs 
p(ph-s) 


e' (0) 

e" (h) 


p^hs 
_ ph-s 

phc-s 
ph-s _ 


e" (0) 


Proof : 


e(x) = - 


7 


+ X' 


ejd-c)-ej(ps) 

p{ph-s) 


+ sinh px» 


eJ(c-l)+p^heQ 



+ cosh px* 

P^(ph- s) _ 

L'p" J 


Q.E.D. 


Corollary 1. For i j+1, j, C^(x) satisfies 


C!(Xj+i> 


n phC-S 
ph-S 

2 (1-c) +phS — 1 
p(ph-s) 


-C!(x.)- 



Efhs 

_ph-S 

phc-s 

phS _ 


CV(x.) 
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Q.E.D. 



Proof ! Cji^(x) with i so restricted satisfies the 
hypotheses of th ■' lemma. 


Note . All the above matrix elements are 

< Or with, in particular# 

_ 2 < < 0 , 

~ ph-s 

Corollary 2. For i = 2#...#N# C^(x) satisfies 


C^(Xj)CJ(x^) > 0 , 

for 

j 

< i 

C|(Xj)CV{x.) < 0 , 

for 

j 

> i 


Proof: For j = 0 we have CJ(x. ) = 0; for j = l#...#i-l 

•i* J 

the result is a consequence of the negativity of the 
above matrix; for j > i changing x to -x reverses the sign 
of Cj (x) CJ (x) . Q.E.D. 

Corollary 3. For i = 2#...#N# Cj^(x) satisfies 



1 

2 


|C!(X.^1) 





j < i-1 
j > i . 


Proof : For j < i-1 the inequality follows from 

Corollaries 1 and 2 with strict inequality the consequence 
of CV(Xj^) 7 ^ 0 (otherwise Cj|^(x) = 0) which implies that 
CV(Xj) ^ 0 for j < i; for j > i we appeal to symmetry 
about x^. Q.E.D. 

Note . This implies an exponential decay of |Cj^(x) | 
away from x^. 
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The following results can be established by arguments 
nearly identical to those in [7]. Hence their proofs are 
omitted. 


Lemma 2. Let t ( x) be any exponential spline with 
knots (uniform mesh and tension) , which satisfies 


"i-i = = » ' 


■ . = V > 0 , T I • T , > 0 , T f 
1 ' 1~1 1-1 — ' 1 


•TV <0 

i+1 i+1 - 


Then 

TV < 0, > 0, < 0 , and T(x) > 0 on . 

Lemma 3. Let t ( x) be such that 


i-1 


i+1 


= 0 


T II 

i-1 


T ' 

i+1 


> 0 


Then T (x) ^0 in [x.__-,,x.]. 

1 JL jL 


Corollary 

For i = 

1,. 

..,n-l we have 



(a) IC^(x) 

1 i iq<Xj> 1 

•h 

on , 

j 

> i 

(b) |C^(x) 

1 1 Iq(Xj) 1 

•h 

on [Xj_j^,Xj] , 

j 

< i-1. 

Let us novj 

consider the 

"natural” cardinal 

splines 


defined by the conditions 


N.(x.) = 6^. (j = 1,...,N+1) , 

NV(Xj^) = NV(Xj^^^) = 0, i = 1,...,N+1. 

Let N(x) be any exponential spline with = 

Then the remaining determined from 


0 . 
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1 




or 


Here a 


Pn" “1 


' V® 

^3 


bj/e 

• 


• 

« 

• 


• 

■ 

®N-1 



-s; - 


- >^n/® 


an" = b. 


2d/e. 

Now A can be factored as 

A = LU 


where 



It is evident that 
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Nj (x) we have (after 



Corollary . For the above case we have 
|5(x)| < I . I (/3 - l )(2 - 
with a similar result for the other case. 

^ II •! 

Proof ; Our recurrence relations for 

N. I < — S • (2 - /3} . Q.E.D. 

he 

The cardinal split>e formulation is not useful for 
calculations because of the need to calculate and store 
a basis function for each data point. It does however 
provide great insight into many numerical aspects of splines. 
For example, the above considerations allow us to determine 
the effect of a change in some data value, say f^^ -> 

We simply add the term to the spline. Similarly, 

a study of Cq(x) and allows one to discuss the 

global effect of the end conditions. 
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- 3.20 


I. 11. B-Spline Basis 


F 


We now construct another basis for the space of 
exponential splines with given tensions. This basis will 
be constructed so as to have minimal support [5,9,34,36]. 

We have the following 

Lemma . Any exponential spline, B(x), with a support 
of fewer than four intervals is identically zero (assuming 
that there are at least five knots) . 

Proof ; At the end points of the support of B(x) we 
must have b = B' = B” = 0 since B(x) G c^. These six 
conditions and the spline continuity constraints allow us 
to explicitly calculate B(x) for the cases of support of 
one, two and three intervals. In all cases, a direct 
calculation reveals that B(x) =0. If we assume uniqueness 
of the splines so defined we can obtain this result in the 
following more elegant fashion. (Just show that the required 
matrices are invertible for uniqueness.) For the case 
of one interval we have four undetermined 
coefficients and six end conditions, hence only the zero 
function satisfies these constraints. For two intervals we 
have eight coefficients, six end conditions and three 
continuity conditions and again the zero function is the 
solution. For three intervals we have 12 coefficients, six 
end conditions and six continuity conditions. Once again 
we lack the extra coefficient by which to specify a nonzero 
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function value. Finally, with four intervals we have sixteen 
coefficients, six end conditions and nine continuity 
constraints. We may use the extra degree of freedom to 
specify B(x) 7 ^ 0 at some point. Q.E.D. 


We now proceed to define such a "B-spline”. To 

simplify the computations we restrict our attention to 

2 

uniform mesh and tension. Given five points ^ 3 CQ+ih )£__2 
require that 


B(XQ-2h) = B'(xQ-2h) = B"(xQ-2h) = B(xQ+2h) = B'(XQ+2h) 

= B"(xQ+2h) = 0. 


We normalize so that B(Xq) = 1. Taking our cue from the 
cubic B-spline we set B' (Xq) = 0, i.e. we take into account 
the symmetry inherent in the definition of B(x). This allows 
us to solve for B(x) on [xQ,XQ+2h] and then reflect this 
about the line x = Xq. 

We set 

P(x-Xq) -p(x-Xq) 

I aT+b, (x-Xf.)+c,e +die , 

B(x) = < p(x-XQ-2h) -p(x-x,Q-2h) 

{ a2+b2 (x-XQ-2h) +02© "^^2® ' 


B'(x) = 


B"(x) = 


f P(x-Xq) -p(x-Xq) 

bi+pcie ”P^1® ' 

p(x-XQ-2h) -p(x-XQ-2h) 

t b2+pC2e ”P^2® 

2 P(x-Xj) 2_, -P(x-Xo> 
p Cj^e +p dj^e , 

2 p(x-XQ-2h) 2 -p(x-XQ-2h) 


,P C 26 


+P ^2® 


XQ+h<x;<Xo+ 2 h 

Xo£x£Xo+h 

XQ+h£x£Xo+ 2 h 

Xg^X^XQ+h 

XQ+h£x;^Xo+2h. 
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The end conditions and continuity conditions =>■ 


aj + 02 + d2 = 0 
C2 + d2 = 0 


bi + pc^ - pd^ = 0 

^ ^ ^ 1 ® “ ^2 ” ^ 2 ^ ^ ^ 2 ® ^ ^ 2 ®^^ 
bi + pcj^e^^ - pd^e~P^= b 2 +pc 2 S ^^-pd 2 e^^ 

c^^eP^ + d^e"P^ = C 2 e-P^ + d 20 P^ 


a2 = 0 , C2 = - b2/2p, d2 = b2/2p , b2 = p/ 2 (phc-s) , 

r- 2—1 

_ phc , = E . c (c- 1 ) + s 

phc-s ' “1 2 j_ (phc-s) ( 1 -c) J ' 


1 

e P^(l-c)+s(e P^- 1 ) 

d - i- 

eP^(c-l)+s(eP^-l) 

^1 4 

(phc-s) ( 1 -c) 

r cii - 4 

(phc-s) ( 1 -c) 


Xq 5, X ;< XQ+h 


B(x) = 


B' (X) = 


P(x-Xq) -p(x-Xq) 

ai+bi ( x-Xq) + 0x6 +dxO 

b 2 [ (x-XQ-2h) - ^ sinh p(x-Xg-2h)], ^0^^ — Xg+2h 

p(x-Xg) 

[ bx+pc^e -pdxO 


-p(x-Xg) 


^0 — ^ — ^0^^ 


1 


b 2 [1-cosh p(x-Xg-2h)] , 

2 2. 


B"(x) = < 


P Cxe 


+p dxO 


[ -b 2 P sinh p(x-Xg-2h) , 


Xg+h ^ X £ Xg+2h 


Xg X £ 


Xg+h £ X £ Xg+2h. 


Hence , 
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B"(Xq) = 

-P s ^ 

as 

n 

0 

phc-s 

do 

h"^ 


B(xQ+h) - 

1 . s-ph 

2 phc-s 

i as 

p ->■ 

0 

B' (xQ+h) = 

P . 

2 phc-s 

" Ih 

as 

p ->■ 0 

B”(xQ+h) = 

p^s 


as 

p 0 

2 (phc-s) 

2h^^ 

are the correct cubic 

spline 

limits . 

Now add the 

points x_ 

2' 

Xq, 

%+2' 


our set of knots in the obvious fashion. Denote by Bj^(x) 
the B-spline centered at (i = 0,...,N+2). All the B^ 
are simply translates of one another. We now show in a 

Ml 

constructive fashion that ^ basis for 

the exponential splines on this mesh with tension p. 

Let 

N+2 

T (x) = I a. B. (x) , 

• 


then 


i=0 

N+2 

I 

i=0 


“ -iln 2 (Phc-s) ^j-1 2 (phc-s) ^+1 

j = 1, . . . ,N+1. 


Also 


N+2 

T' (x) = I a. B! (x) 
i=0 ^ 

N+2 


I / X V Cl/ \ _ P(l-c) ^ . P(c-l) _ 

i =0 2 (phc-s '5 ^j -1 2 (phc-s) ^j+ 1 * 


Finally, 


N+2 

T'*(x) = I a. B. (X) 
i=0 ^ 

N+2 


= Jo ' 2iph| -^ ®j-l - ph5^ 


- 


2 (phc-s) ^j+1* 
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Let's first 


take slope end conditions. We then have 


2(phc-s) ^0 


+ 


-Ejc- l ).. ■ a = f' 

2(phc-s) ^2 


s-ph 

2(phc~s) ^j-1 


+ a. 


-,S-Ph - 
2 (phc-s) "j+1 


j 


1 


,N+1 


P(l-c) a . P(c-l) . ^ 

2 (phc-s) N 2 (phc-s) N+2 N+1 

or, in matrix form. 


P(l-c) 

2 (phc-s) 


s-ph 
2 (phc-s) 




P(l-c) 

2 (phc-s) 


0 P(c-l). 

2 (phc-s) 



^0 


— . — 

H 






• 

• 

^N+1 


• 

• 

^N+1 


_fN+^ 


f ' 

_ N+J^ 


This system is diagonally dcminant and hence t(x) is uniquely 
expressible in this form. 

Note that we can reduce this system to tridiagonal form. 
Multiply the first equation by and add it to the 

second? multiply the last equation by and add it to 

the equation above it. 

Now take the case of second derivative end conditions. 
We then have 


P s 

a — • 

_P^s 

2 

a -I P S 

= f ” 
2 ^1 

2 (phc-s) 

^0 

phc-s 

1 2 (phc-s) 

s-ph 

a 

+ a . 

1- 1 

= fj ; j=l 

2 (phc-s) 

d • -1 

:-i 


2 (phc-s) ^j+1 

P^s 

A •• 

P^s 


A ^ -CII 

2 (phc-s) 

N 

phc-s 

a I 

N+1 ^ 2 (phc-s) 

^N+2 ^N+1 
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or, in matrix form, 



Again diagonal dominance implies a unique representation of 
this form for t (x) , 

We can also reduce this sytem to tridiagonal form. 

Multiply the first equation by - and add it to the second; 

h- 

multiply the last equation by ^ I- and add it to the 

p^s 

equation above it. 

Note that in either case no more than four basis 

functions contribute to the value of t ( x) at any point. 

In addition to the value of the B-spline representation 

as a theoretical tool and a computational device, it is also 

of much utility to interactive computer graphics. This 

utility stems from the local nature of the basis. A spline 

created as a linear combination of B-splines can be 

• r tN+2 

displayed with the user then bexng able to alter 
As each change affects only four intervals the user can 
experiment and design a pleasing curve. 
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There is even a more subtle aspect of such interactive 


design. Recall that 


T . 
1 


s-ph 
2 (phc~s) 


‘j-i 


+ a. 


s-ph 


2 (phc-s) ‘“’j+l 


j=k-l,k,k+l. 


If we now change to while simultaneously changing 

T^k-l '^k-1 2Tphc-sT ’^k+l '^k+l 2(phc-s) ^ 

then this simply amounts to redefining aj^ ->■ aj^+6. 

Hence, we can move groups of points without having to 


compute a new spline! 

It is anticipated that many other aspects of cubic 
B-spline theory can be extended to this more general 
context. 
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Part II; Computation of Exponential Splines 


II. 1. Overview 

In this second part we concern ourselves with matters 
related to the computation of exponential splines. First 
we detail the direct solution of the spline equations 
including a discussion of matrix condition numbers. The 
iterative solution of the spline equations is then 
considered. Next is a thorough discussion of spline end 
conditions. We then produce a power series representation 
that avoids the possible loss of accuracy in the evaluation 
of the hyperbolic functions for small arguments. This is 
followed by the development of tension parameter selection 
algorithms that produce the shape preserving interpolants 
previously shown to exist. The periodic exponential spline 
is then introduced and its computational aspects are surveyed. 
A variety of numerical considerations next occupy our 
attention. Finally, a sequence of examples is presented 
which demonstrates the inherent superiority of exponential 
splines to cubic splines. 
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II. 2. Direct Solution of the Spline Equations 


As we have seen, the formulation of the spline equa- 
tions in terms of either first or second derivatives leads 
to a (symmetric) tridiagonal system. These equations share 
the property with their cubic spline counterparts that 
they can be solved in 0(N) arithmetic operations. 

The following algorithm [2] may be used to solve 
for or tV (i = 1,...,N+1); let 


then set 


and finally 


= DIAG^ 

Ul = Bj^/PK^ 


PK. 


®k-i • Qi-1 + 




-E^/PK. 


= (B.-E._3^-U..jl)/PK, 


(i = 2 , . . . ,N+1) 


T ” = TT 

N+l N+1 


( X ,.../!) . 


In the above, DIAG^ (i=l , . . . ,N+1) are the diagonal elements, 
(i=l,...,N) are the off-diagonal elements, Ej^^^=0, and 
are the elements of the right hand side vector. 

A quantity of interest in the present context is 
the condition number of the spline matrix [35] . Let us first 
take the first derivative formulation. Gerschgorin ' s 
theorem reveals that the largest eigenvalue of A will be 
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less than or equal to 

d. , d. e,‘ 1 e* 

,2 2 ^ 72 ? 2 72 2 

and that the smallest eigenvalue of A will be greater 
than or equal to 


^i~l 

^i-r®i-i 


Hence , 



e 

. - e . 

1-1 1 

: 2 
"®i 

a2 

‘^i-l 

2 ,2 2 
-®i-l '3i-®i 

<• 

0 m a V 

P^ihi 

2 - 

lu 

i 

Pi‘'i®i-2®i+P.i- 

■’ 2 — 

1 

rn^5 v 

Ci-1 

2 iiidrfh 

i 

PiSi • 


For the second derivative formulation the same line of 
reasoning yields 

c -1 

2 - i Pl^i 


-1 1 
A 11 „ < tt max 


P^ihi 


2 - 2 Pih,o.-2s.+p.h. • 


Power series expansions establish 


Pi®i - 2 


pvh.s. ^ 

^111 ^ 

p.h.O.-2S.+p.h. - h. • 
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We thus have the following situation: 

(i) first derivative formulation 

12 


'A' 2 1 


min 


Ia“1| < h 

^ 2 - 4 

(ii) second derivative formulation -• 


BAI 2 1 h 
a“^I < 


2 - h 


min 


Hence in both cases we have the matrix condition number 


K(A) = BaII 2* 2 1 — 

min 
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II. 3. Iterative Solution of the Spline Equations 


The spline equations in terms of second derivatives 
with slope end conditions are 



or AT" = b with the obvious definitions. 

Let A = D + O where D is diagonal and 0^^ =0 Vi. 

Then (D+0)T" = b which implies that t" = -d”^OT" + D“^b. 
-1 -1 

Defxne R h d 0 and r = D b. Therefore, 


T" = - RT" + r. 


In any iterative scheme [20] derived from this relation 
due consideration must be given to the eigenvalues of R. 
Explicitly 



Note that, although R is not symmetric, we do have 
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which is symmetric. Hence, R is similar to a symmetric 
matrix thus implying that its eigenvalues are real. 
Moreover, 

Rx = Xx 
Rx = -Xx 


where x is obtained from x by altering the sign of every 
other element. 

Gerschgorin' s theorem then allows us to conclude that 
all of R's eigenvalues satisfy 

e, e_. t+ej e. 


e. ,+e. 

|X| < max , 


'N 


d. ,+d. ' d-, 
l-X 1 N 


i y < 2 . 


Young's theory then allows us to use simultaneous over- 
relaxation 

[T«] = <jo[r - R[T"]^^^] - (w-l) [T»] 


and the optimum relaxation factor will be given by 


0 )* = 


1 + /l-X^ 

max 


As an estimate of Xj^ we use y. To see that this is 

max 

a reasonable choice, consider the case of uniform mesh 
width and tension. In this case 


and Rx = yix with x = [1,- 


,1] . I.e. y X^^^ and 

iHf » • 

this produces an exact value of w i in this instance, 
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... _ .. 

aWWWW!P TOCT t.i. > u ^ - ! .--.. - ' 


the special case of the cubic spline yields y = 1/2 and 
w* = 4 (2 - /3) . 

A possible starting point for the iterative process 
would be 


[T-] 


(0) _ 2b^ 


h. T+h. 
1-1 1 


The spline equations in terms of first derivatives 
with second derivative end conditions are 


^2 2 
d . -e . 
1 1 


T. + 

1 

1 [ 

<D 

1 

T ^ = 

1 

• 

^2'”^1 

^2 ^2 
a . -e . 
_ 1 x_ 

2 



hi 


- 


1 

(B 

H- 

1 

!-■ 

_l 

q-1 

1 

•H 

1 

d. 

1 

T • 4- 

^ e.n 
1 

.2 2 

^2 ^2 
o. . _ — e • - 
_ 1-1 1-1 

• 72 2 

d . -e . 

1 ^ 

1 ^ 

d^-e^ 
_ 1 ^ 


1 

• 


4- 

1 

• 

Ff -f n 
1+1 1 



^i-1 


d . -e . 
1 1 


h. 

1 

_ i-1 i-l_ 





T f _ 
1 + 1 


f i“*2 / • • • ^ 




r d„ 

N 

X ' + 
N 

N 

.2 2 

.2 2 

d„-e^. 

d„-e^. 

_ N ^ 


_ N 


1 

• 

f -f 

N+1 N 

d„-e». 


h.. 

N N 


N 


T ' = T " + 

N+1 N+1 


or Ax' = b with the obvious definitions. 

The iterative treatment of this system proceeds along 
precisely the same lines as before. However, now 


A < max 


/,2 2 » . -2 2 , 
di ' , ,2 2, j , , ,2 2 , ' a„ 


E y < 


Once again, y is used as our estimate of X with the 

max 

familiar justification. 
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II. 4. End Conditions 


In our previous discussions we hcive always assigned 

one boundary condition at each end of the interval of 

interpolation, i.e. a boundary value problem. It occurs 

to us however that we could rightfully assign both end 

conditions at one end, i.e. an initial value problem. This 

would allow us to concatenate sequentially defined splines 
2 

in a C fashion. To facilitate clarity we will restrict 
ourselves to uniform mesh and tension. 

If we choose to specify = <f)' and then we 

can write the resulting equations as 



ea. _„+2da._,+ea. = 0 

eA. -+2dA« -| +eA • = 0 . 

1-2 1-1 1 

Thus we consider the difference equation 
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r:- 

S ' 


’"k-l + = 0 ; Zq ' ’'l 5 iven, 


with y = d/e. Assuming a solution of the form 

Zk “ l+2yq+q^ = 0 =>■ q^ = -y-Zy^-l < “I, 

~2 

q^ = ~y + /y “1 <1. We introduce the basis sequences 
defined by 


= 0 
= 1 

Y — ^ rr“ - rr** 

n ^ 2~^1 ^ ^ 

V - - i rr^ 1 n 

n " q2“qi ^2~^1 * 

Hence, 


k-1 

+ 2MX,^ + = 0 

Xq = 1, 


k-1 

+ = 0 , 

o 

II 

o 



r, q. 

r\ 



n 


= Z,.-X + 

0 n 


Z, *Y 
1 n 


and therefore 


^n = 


1 

— _ Y 

e n~l 


^ = ==n-l - I ^n-1 


We now see why such a specification is not suitable. As 
I q^ I > 1 we have the effect of a perturbation in the initial 
conditions increasing exponentially. In this sense these 
end conditions are ill-conditioned. 

Let us use this technique to study the specification 
of second derivatives at the two ends. The system of 
equations is 
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^N+1 - 0' - 0, 


= 1 and 


a._^ + 2ua. + a.^ 3 _ = 0 


A. , + 2UA. + A. = 0 . 
1-1 1 1+1 


Therefore 


a 

n 

= 

+ 

_ „n-l 


= kiq;"^ 

+ 

, n-1 

^ 2^2 


We demonstrate the determination of the coefficients for a 
The boundary conditions give us 


+ °2 “ 1 
N N „ 

+ C2<l2 = 0 


=»■ Cj_ - - 


^2 

N N ' 
^l"^2 


°2 = 


N 

^1 


N N 
^l’^2 


Similarly 


^n = 


\ = 


n-1 N . n-1 

~ ^2 ^ 1^2 
N N 
^1 “ ^2 


N+l-n N N N+l-n 

qi ^2 ^ '^ l '^2 
N N 

^1 " ^2 


Note that since q-i = 1 these may be rewritten as 
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r 


'8SC 


= 


N-n+1 N-n+1 

~^2 

^l“^2 


= 


n-1 

h 

rrN 

^1 


- q 


n-1 


- q 


N 


which are clearly well behaved. 

Now consider the specification of first derivatives 
at both ends. The system of equations is 




T »• 


-(f2-fi)/h^-*' 


^2 


^2 


• 


m 


• 

II 

N 


m 

• 


T " , 

N+y 




9TV 9TV 

Letting a^ = ^ we have 


da^+ea2 — “1/ ®^^^^N+1 “ ® ' dA^+eA2 0, eAj^+dAj^_^2^ 1 

yai+ a 2 = “1/e, ^ ^2 ” ^'*'^^+1 ~ 

a._^ + 2ua. + a.^^ = 0 
Ai_i + 2yA. t A.^3_ = 0 . 


Once again. 


^n “ ^I'^l ^ ^^2^2 


■2^2 
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Therefore 


ai = + °2 

^ ^ 2^2 


together with yaj^+a2 - - 1 /e 

c^(y+q 2 ^) + ~ *” ‘ 


Also 


N- 1 ^ ^ N -1 

■’■ ° 2^2 

N 4. ^ 

^M4-l = ^2^2 


together with 


= 0 => 


Ci(q^“^+yq^) + C2(q2”‘^+Vq2) = ^ 


N-l^,.„.Nx ^ 


Hence, 


N-1 . i.rr^ 

1 ^2 ^^2 

^1 ® [(V+q^^) (^2 (Vi+q2) 1 

N-1 . ., N 

1 ^1 + ^^1 

^2 e [ (y+q^) (q^ ^+Pq2) (Vi+q2) (q^ ^ 

In a similar fashion we obtain 

^ y + q2 

^ ^ [ (y+q]_) (q2 ^+^^2^ ~ (y+q2^ +yq.2^)l 

1 ^1 

^2 " e ' [(y+q^) (q2"^+yq2) " <^+^2^ (qi"^+yqi) 1 


These formulae are of great utility in the following 
application. Suppose that we spline fit a collection of 
data and then decide that the end conditions that were 
used were inappropriate. Rather than computing a new spline 
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we may use the above to update 

For example, consider the case of second derivatives 
specified at both ends. The old spline equations are 

AT" = b 

and the new spline, equations are 

A(t"+6t”) = b+ 6b 

where 6b = [6<{)" 0 ... 0 6 i|j'']'^. So we may solve 
A‘ 6t" = 5b and add the result to t”. Here 6t" is simply 
a linear combination of the previously derived quantities. 
Specifically (6 t”)^ = 6(j)" *a^ + 6t|j" . 

Similar comments apply to the case of first derivatives 
specified. Moreover, all the preceding analysis may be 
extended in a straightforward fashion to the case of mixed 
end conditions. 

It is interesting to note that if we are confronted 
with a spline code that only accepts either = ^N+1 ~ ^ 
or T" = = 0 as end conditions we can use the following 

auxiliary functions [5] . 


A^ (x) 
A 2 (x) 


f (x) 
f (x) 




+ 


(b-x)^ 

b-a 

(b~x) ^ 
b-a 


f (a) 
f'(a) J. 


We then calculate Aj^ at the knots, spline fit these 
values using the appropriate end conditions and then set 
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f (x) 

~ T(x) 

+ 1 

~(x-a) 
_ b~a 

f (b) - 

(b-x)^ 

b-a 

f ' (a) 

f (x) 

« T(x) 

+ 1 

Ix-a) ^ 
b-a 

f"(b) + 

(b-x)^ 

b-a 

f " (a) 


depending on which end conditions were used. 

We conclude this section with a treatment of the 
important practical problem of supplying end conditions 
when only data points themselves are available. We choose 
to consider f(x) e C^[a,b] as our paradigm. 

Let f s with M = sup|f^^^ |. A theorem 

of Pruess [35] states that 


llD^(s-T)ll < (26/3) p^^^ h^“^ max | s!,' I ; i=0,l,2, 

— Tno.x j J 

A result of Kershaw [25] states that 

llD^(f-s)ll < c. -h^"^ [h^M+ 8 max | f '.'-si.' | ] ; i=0,l,2, 

^ j ^ ^ 

Hence, we may conclude that 


llD^(T-f)ll < (26/3) p^ h"^"^ max lsVj+ c.h^'^.M 

ina.x j ^ X 

+ c.h^ ^ • 8 max |fV-sI|| ; i=0,l,2. 

j ^ ^ 

Thus, in order to maintain uniform 0(h^ ^) accuracy, we 
need only ensure that max |f'.'-s'.'| = ©(h'^). This is well 

j ^ ^ 

known to be the case when exact slope end conditions are 
specified. We now investigate the effect of using 
approximate rather than exact slope end conditions thus 
extending known results [44] for the cubic spline to the 
exponential spline. Recall that 
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As" 


6b 


where 


and 


b, = 


f -f -h f 
2 


b,. = 






^N+1 ”■ “ ^^N+1 


N+1 


h 


N 




‘k-1 


\-l + \ 


k=2, . . . ,N 


k=2, . . . ,N 



We then have 


1 1 

H'j A - III = -^ (since the sup vector-norm induces the 
max row sum matrix-norm) 

=> IIa"^II = I ll(^A)"^ll < (l/2)/[l-ll| A-Ill ] = 1. 

Now consider 

A s" = 6b 

where b is obtained from b by replacing f| and by 

— I 

their estimated values f,' and f„.,. 

1 N+1 

This results in 
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A(S" - 

s") 

= 6(b 

-b) 


s” - s” 

= 

6A“^(b- 

b) 


«=> a s - s 

n < 

6‘Ia"^II ‘Pb- bl 



< 

6*Bb- 

bR 



- 

6 maxj 

^ 1 q - bj^ 1 , 

1 ^N+1 " ^N+1 



6 maxj 

f iq-*ii 

i^N+l“^N+ll 



L h 

K 


If we have 

= q + O(h^) and + o(h^) 

then 

max |f.-slj| < max |fV-sV| + max |sV-s!,'| = O(h^) 
jJJ jJJ jJ3 

as desired. 

So we see that we need only supply a third order 
accurate approximation to f (a) and f'(b) in order to 
rstain the interior error bounds. This can be achieved by 
using the slope predicted by the foui>point one-sided 
difference formula derived from Lagrange interpolation. 
This gives us the following end conditions. 

Left-hand end: 

q = 01*1 + 0.^2 + = 3*3 + = 4*4 

with 
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[(hi+h2) (h^+h2+h3) + (h^) (hj^+h2+h3) + (h^^) (hjL+h2) 1 

^ (hj^) (hj^+h2) (hj^+h2+h3) 

(h^+h2) (h3+h2+h3) 

^ (h^) (h2) (h2+h3) 

c = - (hj^+h24-h3) 

^ (h^+h2) (h2) (h3) 

(hi) (hi+h2) 

- — — 

(hi+h2+h3) (h2+h3) (h3) * 

Note that 

°1 = - <°2 + <=3 + =4) . 

Right-hand end: 


^N+1 “ ^4^N-2 " ‘^S^N-l ~ 


N+1 


with 


■'i = - 


^2 = 


■33 = - 


■34 = 




^V^N-l'^\-2^ ^^N-l‘^^N-2^ ^^N-2^ 


Note that 


di (d2 + d3 + d^) . 

We have the following error estimate for the left hand 
end condition 
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f ' - f ' = 


f ( 4 ) / c\ 

- — (hj^) (hj^+h2> (hj^+h2+h3> , 


The corresponding estimate for the right hand end 
condition is 


£ ' - f ' 

^N +1 N +1 




^ ^ ^^N-’ 2 '^N+X^ * 


We establish the result for f|. Let fee [x^,x^] and 
define the linear functional . L [f] = f'(x^) - (c^f 2^+C2f 2+^3^ 3+c^f ^). 
Now L annihilates all polynomials of degree 3 and hence 
Peano ' s theorem guarantees that 


X, 


L[f] 


= 1 


f (t) K(t) dt 


where 


and 


K(t) = ^ L[(x-t)^] (considered as a function of x) 

J ! + 


(x-t)^ = \ 


(x-t) 

0 


, X >_ t 

, X < t 


Now 


L^[(x“t)_j_] — 3(x2”t)^ •" [c-j^ (Xj^—t) ^ + C 2 (x2""t) 

+ C3(x3"t)^ + c^Cx^-t)!] 

= 6*K(t) . 


Therefore 


-[c-(xo-t) + c, (xo"t) + c- (x.-t) ]; x,<t<x. 


' 2 '"2 "" ’ ^ 3 '“^3 

6*K(t)= -[C3(x3“t)^+ c^(x^-t)^] 

-[C 4 (X 4 -t)^] 


XjltlXj 
^3 £^£.^4 • 
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A tedious calculation verifies that 


K(t) < 0 ? t e . 

A strong form of Peano ' s theorem then allows us to conclude 
that 

L[f] = - L[x^] ; 5 e [Xj^rX^] . 

An equally arduous computation then shows that 


L[x^] = -h^ (h2^+h2) (hj^+h2+h2) . 

Therefore 

f ( ^ ) ( £ \ 

L[fl = - ---j- r- (hj^) (h3^+h2) (h3^+h2+h3) , 

IL • 6 • 


f (?) 


f ' (x^)-f ' (x^^) ^ (h^) (hj^th 2 ) (hj^+h 2 +h 3 ) ,K ^ [X 3 _..x^] 


On a uniform mesh with constant tension there is an 
increase in the order of approximation. Hence, in this 
instance we should provide higher order estimates of the 
end conditions. We simply use 


^N+1 “ HE ^N-3 " 

which derive from a quartic Lagrange interpolation [1] . 
The error estimates are 


t[-f[ = ih'* , 


f ' -f ' = — h^ f (£) 

^N+1 ^N+1 5 ^ ^ 


? e [xj^, Xg] 

^^N-3'^N+l^ * 


and 


f 


I 


The above considerations for first derivative 
end conditions with second derivatives as unknowns are 
easily extendable to second derivative end conditions. 
Furthermore, both of these cases may also be applied 
to the equations with first derivatives as unknowns with 
similar results. 
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II. 5. Alternative Power Series Representation 


The next problem to be treated is the loss of 
significance when evaluating sinh (p^h. ) for small 

Vc;,iues of (p^h^) . Specifically, since sinh x = ^ — 2 

for |x| << 1 we have e = e = 1, an invitation to 
"catastrophic cancellation." Such small arguments would 
arise naturally but the scaling suggested below makes 
these considerations even more critical. Hence, for small 
values of (say < 0.07), we would like to resort to 

a power series representation of the hyperbolic functions. 

We note that such measures are unnecessary on IBM hardware. 
However, their inclusion enhances software portability. 
Moreover, the resulting formulae allow the use of p^ = 0 Vi 
thus the cubic spline may be used as the zeroth iterate. 

We proceed as follows: 


h. 

e - -i 

[l - 


31 

|>W1 

®i 6 

°i^i ^ 

2520 

d 

[l _ _1_ 

P?h? + 
1 

2 


CX • ^ 

X 3 

15 

315 


6 , 7 


Note that Pj|^ = 0 Vi 

h. 

6i = , 

h. 

^i--r ■ 

which are seen to produce the system of linear algebraic 
equations for the cubic spline with specified derivative 
end conditions [2], That is. 
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h. h, 

i, T " j. T II 

3 1^62 




— ^ T V + ^ ,T ” 4. ^ T” = K / A —'i 

6 x-1 ^ 3 ^ X ^i+1 - 

h„ f , - f 

— ?i T” J. - -^ Til — 4II /U\ W*1 N - i_ 

6 N ^ 3 N+1 ^ X " ^N+1 • 

isr+1 N 

We have the following expansion for t (x) : 

r ) r ^ 

Xi.,“X x-x. 

T(x) = f. — + f. . 

H hi T+1 -R— 


• .,N) , 


_ — i. (v -v^ T” 1 _ _7_ , 31 ^4t,4 

6 ^^i+l X) i ~ p.h. + p.h. 


1 _2 


- -h <=' 1 + 1-=') 


.95 Pi-i ^ (Xi^i~K)^+ i2^ 


- -r "i+1 1 


2- n2v,2 4 . _31 „4. 4 
60 ^i^i ■^ 2520 ^i^i 


t ^P^x-Xi)2-^ (x-x,)2-^p4h2(,.,.)2 

“i 

" 20h? (x-x^)^j. 

Note that , when p^ -- 0 V i , we have 


X t , -J “X X”*X • 

^ <"> = ^ 

J X 


1 (3C. ,-x) 

6 ■'il-— ~2— 

h . 

1 


1 

6 hi(x-x.) TV^i 1 ^ 

I h 


which is the equation for the cubic spline on the i- 
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interval [ 2 ] . Hence , a convenient choice for initial tension 
parameter values is = 0 Vi. 

Many applications require the derivatives of the 
interpolant. For completeness, we include the formulae for 
T'(x), T"(x), T"’(x), in terms of both hyperbolic functions 
and the alternative power series representation. Hyperbolic 
function representation: 


T ' (x) = 


p.sinh(p.h.) 


cosh p. (x-x.) - Tj cosh p. (x.^^-x)) 




h. 

1 


T"(x) = T" , • 


sinh p . (x-x . ) 


i+1 sinh(p^hj^) 


i i+1 


sinh 

X ? • XT- J- 

i 


II t 


sinh (PjLh^) 


cosh p^(x-x^) 

(x) - sin!h"(p . h . ) ^i^i sinh (p . h . ) 


Power series representation; 

T'(X) = i - Cihi-fv^lCr^+S-T^-x^+S-Tj.x^) 


TV(T^+3-T2-x^+5 


Tj-xJ)}. 


T" (x) = c^h^'^T^'X^ (6*T2 + 20*T2 *x^) 


V^j^-X2(6-T2+ 20-T3-x^)} 


T"'(x) = (Tj + lO-TjxJ) + 6 -tJ^j^(T 2 + lO-Tj'Xj) I 


where 


Ti = 1 + O3 • p?h? + 

m 2 1^ 4, 2 

^2 = °1 * Pi “ ^7 * Pi^i 

1 

’'s = ('=8 • °9 • Pi) • Pi 

i 
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~ ^ i +1 " ^ ' ^2 ^ 

c^=l/6, 03 = -7/60, c^= 31/2520, c^= -7/195, Cg=-l/20, Cg 

Note that in the presence of scaling these formulae must be 
modified accordingly. 


1 / 120 . 
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\ 
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II. 6. Parameter Selection Algorithm for Co-Convex Interpolation 

In this and the following section we take up the task 
of tension parameter selection. This is the key problem 
which needs to be solved if exponential splines are to be 
useful in practice. A satisfactory treatment is not avail- 
able in the literature. 

A previous section assures us that for large enough 
tension parameters the exponential spline interpolant 
is free from extraneous inflection points. The question 
now arises as to how to choose p^^ (i=l,...,N) which 

are sufficiently but not excessively, large. 

Excessively large estimates will produce an interpolant 
which is kinky in appearance since t? , ^i +1 as 

Pj^-> °° (k=i-l , i , i+1). In this section we present a tension 
parameter selection scheme that answers this question in 
both a theoretical and practical sense. (Note: Assume that 
b^ 0; i = 1,...,N+1.) 

Assuming ^ 0 (i=l , . . . ,N+1) then > 0 (i=l , . . . ,N+1) 

is a necessary and sufficient condition for no extraneous 
inflection points. Hence, we will iteratively alter p^ 

(i = 1,...,N) so as to enforce > 0 (i=l , . . . ,N+1) . 

Before proceeding we need the following easily established 
facts : 

(a) > 0 d^ > 0 

(b) ab > 0 iff |a-b[ < max ([a[,|bl) . 
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For purposes of illustration, assume that for some 
choice, p|^^ (i=l,...,N), we have < 0 for some k 

between 2 and N (a similar analysis will subsequently 
be given for the end intervals) . We then have 

®k^k+ll “ I’^k ■ <^-1 '^k’ ^k I • 


Vk > 0 iff |b^- (ak-l+'ik>''kl < Wk-i+^l dk I ) 


sxnce 


d^ > 0 for p^ > 0 (i = 1,...,N) . 

We therefore define so that , e^. produce 

l®k-l^i;-l + Vk+ll <™ax(|b^|, (dk.i+Vl^kl )-• 

i.e., after freezing the t”'s, we vary the p's so that 
all these inequalities are satisfied. 


Letting 


, ^ max ( I bj^ I , I ! ) 

2 max dk+ll> 


= k-1, k 


produces the desired result. 


Define 


max(|bj^|, hj:|) 

2 max(|Tj;_^|,|T»^^|) 


Now, since 


®i= tEt 


1/p? , 


we seek to satisfy the inequality 


gj^(x) < 0 , 


where 


(i = k“l, k) , 
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(i.e. we always increase the p's). 

However, the new tension parameters (p's) will alter 
the T”'s thus requiring an iterative procedure. The 
suggested procedure is 

p(n+l) , p(n, ^ . 

It was previously assumed that tV 0 (i=l , , . . ,N+1) . 
It can be shown [42,43] that if = 0 for any 2 <_ i £ N 
then TV ,t'' . > 0 is ncicessary and sufficient for the 

i+i. — 
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prior analysis to hold. Now we have 

(di_l + di)Ti := - e^TV^j^ , 

and/ since we still assume bj^ 0 V k , we cannot have 

= 0 (i.e, either or e^^ are actually present 

in the equation). So to make XV fi 0 when x" tX'.' < o. 

1 1—1 i+l 

we perturb and e^ by incrementing p^^^ Pi 

some small amount/ 

It remains to remove the assumption bj^ 0 V k . 

If b^ = 0 then the points and 

^^i+l'^i+1^ should be joined by a straight line (with a 
similar statement true in the end intervals) . The two 
remaining portions should then be fit separately using 
slope end conditions at and derived from the slope 

of the straight line segment. This may be accomplished 
implicitly by the following alteration of the coefficient 
matrix, A. Set as many of the set {A. , • ,A. ..i/A.,, . ,A. . ,} 

X/X'4*X X*iX^X X^X‘**X 

as exist equal to zero and then proceed as usual. This 
produces the desired xj^ (k=l, . . . ,i-l,i+l, . . , ,N+1) . The 
interval is then fit separately with a linear 

function. The points and are 

now to be treated as the right and left hand endpoints, 
respectively, of two distinct exponential splines. 

In summary, we note that the tension parameter selec- 
tion problem is inherently nonlinear (by virtue of the non- 
linear occurrence of Pj^ in the interpolant) . It is then hardly 
surprising that an iterative procedure should suggest itself. 
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We now return to the problem of parameter selection 
for the end intervals. The relevant equations are 

^I'^l ®l'^2 ^1 

‘^N^N+l ^N+1 • 


'^Jbl < 0^ 


®1^2 ' “ 1^1 " ‘^I'^l 


Mow bj^T" > 0 iff < max( [b^^l, d^lTj|). 

Therefore define p^ b e^^ produces < max(|bj_I, 

♦V 

Letting e^ < max ( | b^ I , d^|T"[) / | [ produces the desired 
result. Hence, define A = max(|bj^|, l''^2 I ‘ 

'^N+l^N-fl ^ f I " I \+l “ ^n'^N+1 I • 

\+l'^N+l ^ ° I ^N+1 " ‘^N^N+1 1 ^ (1 13^7+1 1 / '^nI'^N+iI^* 

Therefore define p^^ 3 e^^j produces < max ^ I^N+ll '‘^nI^N+iI ^ • 

Letting e^^ < max ( I^N+1 1 ' '^nI ^N+1 1^/1 TjJJI produces 
the desired result. Hence, defin'^ A = max ( ] b^^^^ [ ,d^^ | j ) / [ | . 


77 


II. 7. Parameter Selection Algorithm for Co-Monotone Interpolation 


In this section we develop a tension parameter selec- 
tion algorithm that preserves any monotonicity present in 
the data [23] . Specifically, if the polygonal interpolant 
has slope of constant sign in three successive intervals 
then we select the tension parameters in these intervals 
so that T • (x) has this same sign in the middle interval. 
Similar considerations apply at the end intervals. 

We begin by rewriting the exponential spline as 

p.x -p.x 

T (x) = + B^x + C^e + D^e on ,Xj^^j^] 


where 


if 

= — \x. . , [f . ] - x_. 

X 11^ Ixi 1 pX Jl 


T " ^ 





T II ... T II 

i+1 i 


L J 


p.h. 

L. 1 — 1 


*^i ■ ^2 




"P^^i+1 "Pi^i 

•T? e e ^ 


-Pi^i r 


2p2si 


-p.h. 

-xVe ^ ^ + X'.' 1 
1 1+1 


°i " «_2 


2prsi 

Pi^^i 


Pi^i+1 Pi^i 

X'.' e e ^ 

1 1+1 


Pi^i 

X'.' e ^ - X'.' . 

1 1+1 


Hence , 
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T' (X) 
T" (X) 


T'" (X) 


PiX 


-p . X 


®i + ® " Pi°i ® 

2 "P.X 

p2[C. e ^ + D. e M 

3 P^x -p X 

* " - - " ] on (x.,x,^j_) . 


pJ[Ci e - - D. e 


Assume that ^ with both having the "correct" 

Therefore, any extremum of t'(x) interior to [x^, 

is characterized by t“ (x*) =0 =>■ 

2PiK* _ D. 

® ” r * 

Now if ^ 0 there is no interior extremum and this 

spline segment is monotonicity-preserving. If 

Pi^* . 

Di/Cf < 0 then e = /-D^/c^ => 


sign, 




T'(x*) = [sgn (C^) - sgn(D^) ] 

= B^+2 sgn (C^) p^ 

= B. - 2 sgn(D.) . 

Also 

T"'(x*) = P? [sgn (C^) - sgn(D^) ] 

= 2 sgn(C^) • p? = -2 sgn(D^) p? . 


Therefore 

(i) C^>0, D^<0=^T'"(x*)>0=^T’(x*) is a (local) minimum; 

(ii) < 0, > 0 =>• T (x*) < 0 t ' (x*) is a (local) maximum. 


If T'(x*) has the correct sign then t ( x) is locally 

monotonicity preserving. If x»(x*) is of the "wrong" sign 

we must do something about it if x* g [x-/X.,, 1 . Since 

1 1+1 
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= ’'i + 2^ 


T V , . - X V e 
1+1 1 


Pih. 


TV , - - TV 
1+1 1 


we thus have two cases: 

(a) if TJ < then x* e [k.^x.,.^^] iff tv^^> o 

(b) if TV>e^^ then x* e [x.,x.^j_] iff 


We now come to the case in which T'(x*) has the wrong 
sign. In this event we iteratively modify the tension para- 
meter, so as to enforce the requirement that t'(x*) should 

have the correct sign. 

Consequently, consider once again our special cases. 


with 


m. 

1 


1+1 1 


and Y = + p^ » 2 sgn (<Cj^) • /-C^D^ i 


(i) 

Ci > 

0, 


< 

0 T ' (x*) is a minimum 


(a) 

if 

m . 
1 

< 

0 then do not alter p. 

^1 


(b) 

if 

mi 

> 

0 then, since we want Y 



^(n+l) 

^i 

= 

• - B. / 2 ^ D . + 5 

(ii) 

o 

H- 

A 

0, 

^i 

> 

0 => T ' (x*) is a maximum 


(a) 

if 

mi 

> 

0 then do not alter p. 

^1 


(b) 

if 

mi 

< 

0 then, since we want ' 


= B. / 2/^C.D. + 6. 

•^1 1 ' 11 

The only remaining issue is if the computed t| should 
be of the wrong sign i.e. < 0 and "^^m^ < 0. 

We proceed as follows. 
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t-(kT) 


T— -Pi"! °°®h(p.h.) +p.Tj;^^ 

L J 




T”. - -TV 
X+1 1 


T.(x-) = ;2 ■■ [-Pi-i^I-i + Pi-i-^I °°sh(P^.j.h..j^)] 

1 r t'.'-tv . -, 

+ - ^ i - l > - -- ^2 ] 

As we know, subtracting these relations yields the 
tridiagonal system for tv (i = l,...,Ntl). 

However, we choose to average them which produces 

We choose to enforce 


Now, 


We need the following rs 


Lemma. 

(a) 

®i i 

1 

Pihi 


(b) 

^i 1 

1 

Pi 

Proof : 

(a) 

®i = 

ft 


P-T] 2 1 

- — / p7 < — sj — since we know e. > 0 
^■iJ. ^ r.rv.. ^ 


pth. 
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(b) d. < ^ 

1 - p. 


iff ~ < 1 

s. p.hj^ - 


but ^ ^ 5 i since f{x) = x sinh x + sinh x 

which follows from f(0) = 0 and 


- X cosh X > 0 


f'(x) = cosh X + x(cosh x - sinh x) ^ 0 for x ^ 0. 

Q • E! • D • 

We are thus led to enforcing 


1 + 1 ^ 1 ^ _ 1 _ 
Pi-lhi-l P^l '’i 




1+1 


< m. 1 + m. 
1-1 1 


or, alternatively 
^ 1 


Imi^l + mj’ 


Pi-l^i-1 


2 max 




together with 
1 


+ A- < 


m. , + mJ 
1— ± c 


pfh. Pi 2 maK 
This ultimately leads to 

(n+l) _ 1+PA 2 


Pihi 


l“i-l “il 


+ 6 


and 


(n+l) ^~*~Pi-A~l 2 max ( h _i M U hj+l 1 ) 


Pi-1 


Pi-lVl 


+ 5 
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II. 8. Periodic Exponential Spline 


If one wishes to parametrically fit a closed body 
in a smooth fashion, then periodic end conditions must be 
imposed. The necessary modifications to the preceding 
analysis are presented herein. 

Matrix Structure 

The equation for strictly interior points remains 
unchanged : 


+ Vi+i = = 2 N-i) 


We now have the periodic end conditions 


^N+1 ^1 ' 

X It — . T II 

N+1 1 * 

In addition, we imagine an additional point at Xq g 

It — T It 
‘0 ■ • 

This effectively identifies the two endpoints. We now 


write down the equations for i = 1 and N: 

fd +d )T" + e T" + e t" = ^ ^ N 

^V^l' 1 ^ ®1 2 ^ Vn h, IT 


12 


N 


®N-1^N-1 * 


We therefore redefine 


^ ^2 “ ^1 ^N +1 

^1 = -h: 
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Note that the matrix is no longer tridiagonal. Instead it 
has the structure. 


DIAGi E„’ 


f 

T (• 
1 


’ ^1 ' 

Bl W“ 


• 



o\\Vi 


• 

• 


• 

• 

Bn diag^ 


T« 

N 

> 




Matrix Solution 


The following algorithm [2] may be used to solve for 
T? (i=l,...,N) ; let 


then set 


= DIAGj^ 

Ql = - Ej/PK^ 
“l = Bl/P"! 

®1 = - VB"l 


PK. = 
1 

®i-l * ^i-l + DIAG^ 

II 

•H 

a 

-Ej^/PK^ 

a 

H- 

II 

<Bi - ®i-l ' "i-l) / PKi 

s , = 

2. 

•Bi-1 • ®i-i /BBl 
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let 


then set 


and finally 


•fi = 1 

'"i = Qi-^i+i+Di / 


(i=N-l, . . . ,1) 


T“ 

i 


*®N ‘ '*1 “ ®N-1 ' '^N-1* ^ ’ ’’’l '*' ^N-1 ' '^N-1 '*' 

°i • ‘^i+l+Si ■ 


Parameter Selection Procedure 

We treat the periodic case as follows; 

N 

(1) All points treated as 

interior points. 

(2) When < 0, we modify Pj^ and p^^. 

The previous scheme is otherwise unaltered. 
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II. 9. Numerical Considerations 


In this section we detail the necessary modifications 
and extensions to the above analysis which practical 
implementation mandates [10,11,38]. 


Scaling 


The first problem to be treated is that of the 
inherent number range restriction. In IBM FORTRAN this 
results in the restriction that the magnitude of expon- 
ential arguments be less than 175.366. Since the 
exponential spline definition requires the computation of 
quantities such as sinh(p^hj^), the data must be scaled so 

that max (p^h. > < 175.366. 
l<^i<N ^ ^ 

However, . it should first be shown 
that a scaling of the abscissae leaves the sign of 

TVbi (i=l, . . . ,N+1) invariant. This is required since the 
necessary and sufficient condition for no extraneous inflec- 
tion points which is the basis for our algorithm is a function 
of the algebraic signs of these quantities. We proceed 
as f ollovjs : 


^ib. = T-(x.) 


f.-f. , 
1 + 1 1 1 1-1 


? . * . X = x/a 




T^bi 


— 2 — •• /— . 
a T (x^) 


f .^T-f . 
1+1 1 








a-3?^bi. 


where 
so that 


T(x) = T(ax) 
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a > 0 =** 


TVb. and '^Vb. have the same sign. 

JL ^ 


In addition. 


If It A M II »• It 

"^i-l '^i+1 " “ '^i-1 '^i+1 


so that 


t’.' 


and have the same sign, 


We may now freely scale x by an arbitrary positive 
factor. We choose to proceed as follows: 

Define 

)J = max {p .h . } 
l<i<N 

and 


o = 150 .; 


then 


X. = x^/o. with “ a 


^ p.h. = — p.h. < — < —li — 
X a ^x X — a — y/a 


and we consequently remain within the desired number range. 
Whenever the p's are updated, a scaling should be done if 
y > cr. Note that when scaling is done then f'(a) and 
f'(b) should be multiplied by a. 

in practice, an additional source of scaling is the 
need for a unique interpolant when a change of physical 
units is made. We now take up this matter. 
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Invariance Under Linear Transformations 


As presently proposed, the exponential spline interpolant is not 
invariant under change of physical units. To ensure such 
invariance some sort of normalization must be performed on 
the input data. 

Ordinates 

Let fji^ = ^2.^i'^^2 ' then = ^l^i «♦ t? = k^xV. 

Therefore x (x) =kj^T (x)+k 2 , as it should be. Hence, scaling of 
the ordinates is unnecessary. 

Abscissae 

Let X = kj^x+k 2 . In this case, k 2 is impotent since 
only differences of abscissae appear in the exponential 
spline formulation. However, k^ has a nonlinear effect on 
the interpolant. Hence, scaling of the abscissae is required. 
Setting k^^ = 2/ (Xj^^j^-Xj^) and using this as a scale factor 
suffices. 

Parametric Exponential Spline 

In many applications f is not a single-vcilued function 
of X for the entire range of the data. Hence, it becomes 
desirable to fit both x and f versus some parameter, e.g. 
chordal length or arc length. We prefer the arc length 
formulation. 

We proceed as follows : 

(1) Determine the chordal length, s. 

(2) Pit X and f versus s, producing exponential splines 
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1 


x(s) and f(s), respectively. 

(3) Determine modified arc lengths from 

+ lf''{s)]^Y''^ ds . 
a 

This integral can be evaluated numerically # 
say by a compound Simpson's rule. 

(4) If arc lengths have changed appreciably then 
go to (2) ; otherwise the current x and f are 
the sought after parametric fits. 
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II. 10. Excunples 


We next present a sequence of carefully selected 
examples. They are chosen to illustrate both the effi- 
ciency of the new parimneter selection algorithm and the 
inherent superiority to cubic spline interpolation. 

The first test case is taken from Spath's original 
paper [47]. The cubic spline interpolant, Figure II. 10. la, 
exhibits extraneous inflection points in the first, 
third, fourth and eighth intervals. The converged exponential 
spline interpolant. Figure II. 10. Id, is seen to be free of 
such aberrations. The general behavior of our parameter 
selection scheme is amply portrayed in this example: 

The first iteration. Figure I I. 10. lb, captures the gross 
features while subsequent iterations. Figures Il.lO.lc-d, 
essentially "fine-tune” the first. We note that the scheme 
proposed by Spath required twelve iterations as opposed to 
our three iterations with no visible difference in the 
final interpolants . 

The second test case is a unit impulse function. Note 
the "wiggles" present in the cubic spline interpolant. 

Figure II. 10. 2a. This example demonstrates the insensitivity 
to "outliers” that the exponential spline interpolant. 

Figure II. 10. 2b, possesses. 

The third test case is a semicircle joined to two 
straight line segments in such a way as to produce disconti- 
nuities in the first derivative. This example begins to 


90 



implicate the cubic spline interpolant, Figure II. 10. 3a, 
as being deficient as a means of geometric representation. 

The exponential spline, Figure I I. 10. 3b, on the other hand, 
performs ideally in this instance. Such a geometry would 
arise as the computational domain for flow past a cylinder. 

The fourth test case is a quarter circle joined by a 
straight line segment with a discontinuous second derivative 
at their junction. Once again the cubic spline interpolant. 
Figure II. 10. 4a, falls far short of geometric requirements 
while the exponential spline. Figure II. 10. 4b, does not 
falter. If we were to try and calculate supersonic flow past 
this projectile, the cubic spline inflection point would 
likely induce a shock wave. 

The fifth test case displays the critical sensitivity 
of the cubic spline interpolant. Figure II. 10. 5a, to the 
end conditions imposed. It is an additional advantage of 
the exponential spline interpolant. Figure II. 10. 5b, that 
it automatically compensates for poor end conditions thus 
restricting them to local influence. If this geometry were 
axisymmetric the cubic spline would surely replace the 
blunt body by a pointed one. 

Furthermore, we note that preliminary tests have revealed 
wildly oscillating cubic spline interpolants in the presence 
of nonuniform knot placement. This defect appears to be 
absent from the exponential spline interpolant. 
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An additional coiranent deserves to be made at this 
point. That is, in the applications where cubic splines 
are typically used, a great deal of effort is generally 
expended in the smoothing ("fudging”) of geometric data 
and in the preoccupation with end conditions. Both of 
these difficulties are peculiar to the cubic spline. 

In general, exponential spline interpolation obviates 
the need for such diversions. 
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(Iteration 0) 



10.33 
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II. 10. lb. Spath Test Case (Iteration 1) 





re I I. i 0.1c. Spath Test Case (Tteration' 



10.36 



96 


Figure II. 10 
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Figure 
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II. 10. 5a 
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Part III; Application of Exponential Splines 


III.l. Overview 

In this third part we take up the application of our 
preceding work on exponential splines. We begin by survey- 
ing the utility of such splines in some geometric and 
data fitting problems occurring in computational fluid 
dynamics. The discussion here is somewhat general with 
the exception of a detailed boundary layer calculation. 

The numerical solution of the Laplace, heat, and wave 
equations is then addressed. Our aim in the final parts 
of the chapter is to provide a treatment of nonlinear systems 
of hyperbolic conservation laws and in particular to 
simulate shock waves without introducing wiggles. We first 
take up a linear model problem. In this context we analyze 
the stability and accuracy of a variety of numerical schemes. 
Nonlinear problems are introduced via the inviscid Burger's 
equation. At this juncture we generalize the Lax-Wendroff 
theorem concerning convergence of approximations to weak 
solutions to the case of our spline scheme. The classical 
Riemann problem for an infinite shock tube is then approached 
using this scheme. Finally, the scheme is extended to 
multi-dimensions and applied to the two-dimensional Euler 
equations. Specifically, we provide numerical simulation of 
transonic flow in a channel. 
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III. 2. Geometric Applications in Computational Fluid Dynamics 


As if the attendant mathematical difficulties were 
not inherently severe enough, the calculation of fluid 
flow fields invariably requires, at one stage or another, 
the construction of smooth curves from a prescribed set 
of tabulated data points. Examples that immediately come 
to mind are the definition of body geometry, the numerical 
enforcement of boundary conditions and the generation of a 
computational mesh. Hence, reliable interpolation procedures 
must be developed. in what follows, we restrict our atten- 
tion to the two dimensional case for ease of exposition. 

The techniques developed have no such intrinsic limitation. 

The remainder of this section presents a wide variety 
of applications of exponential splines in computational 
fluid dynamics. The emphasis throughout is on areas of 
application where the use of cubic splines would result in 
a significant degradation if not an utter breakdown of the 
computation. 

The utility of exponential splines as a means of 
geometric representation has already been intimated . The 
resulting loss of accuracy in the numerical prescription 
of initial and/or boundary conditions could distort the 
solution throughout the entire flow field. In a boundary 
conforming computational mesh, any abnormalities along the 
boundary v/ill propagate into the grid. Smith and Wiegel [45] 
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and Eiseman and Smith [16] have advocated the use of 
hyperbolic splines in this context. This approach requires 
that uniform tension be applied, thus resulting in 
unnecessarily kinky curves. 

Along these same lines / conformal mapping techniques 

often require ex post facto stretchings to concentrate grid 

. . . 2 
points in regions of high gradients. Such C shearings 

may be conveniently constructed and controlled by employing 

exponential splines. Figure III. 2.1 displays such a 

stretching function while Figure III. 2. 2 illustrates its 

application to a channel-with-bump geometry. 

In a slightly more general vein, we recall that strict 
adherence to convexity constraints is required by many 
existence [8] and uniqueness [18] results in the theory of 
plane subsonic fluid flow. It is also well known that in 
supersonic flows, there is an inherent difference between 
concave and convex geometries [12] . These considerations 
imply that convexity must be preserved in the discrete 
analogues to these problems, e.g., through the use of 
exponential splines. 

We now present the application of our exponential spline 
code to provide smooth input data for the integration of 
the boundary layer equations and to prevent failures of 
the integration scheme due to oscillations in the input. 
Specifically, we consider the transonic flow (peak Mach 
number ^ 1.2) over a compressor cascade with 10 degrees of 
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flow t\xrning as supplied by Kom [26] (see Figure III. 2. 3). 
The oornputed velocity distribution along the upper surface 
(obtained from a hodograph method) is shown in Figure III. 2. 4. 
Fifteen points were selected and fit with both cubic and 
exponential splines (see Figure III. 2. 5). The cubic spline 
oscillates wildly in the vicinities of the supersonic 
zone and the trailing edge. 

The resulting velocity distributions were then input 
to the STANS finite difference boundary layer code [13] . 

The anomalies present in the cubic spline interpolant cause 
the boundary layer to separate at the leading edge overspeed 
thus halting the calculation. On the other hand, the 
well-behaved nature of the exponential spline interpolant 
allows the calculation of a fully attached flov/. 

In order to obtain a more substantial comparison we 
include 4 additional points on the velocity schedule (see 
Figures III. 2. 6 and III. ''.7). These are then used as input 
to STANS (see Figures III. 2. 8 and III. 2. 9). The output, 
displayed in Figures III. 2. 10 and III. 2. 11, clearly 
indicates that the cubic spline can produce nonphysical 
features in the computed flow field. 

In contrast, the exponential spline, because of its 
stricter adherence to the features of the data, is seen 
to be more reliable. One can well imagine the additional 
complications which the presence of a shock wave would 
entail. 
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Obviously/ the use of an extremely fine mesh would 
rectify the situation. However, a high cost could be 
incurred in the form of vastly increased computation time. 
This is especially true when the boundary layer calculation 
is not being performed a posteriori but rather as part 
of an inviscid-viscous iteration. Furthermore, the use 
of the exponential spline would allow the specification of 
less data than the cubic spline in an inverse design 
procedure. 

We note that the role of exponential splines in the 
direct numerical solution of singular perturbation problems 
has recently been investigated by Flaherty and Mathon [17] . 

In summary, the examples considered indicate that 
the cubic spline may cause difficulties in a broad spectrum 
of practical applications. In the past, the lack of a 
satisfactory scheme for tension parameter selection has 
hindered the widespread use of the exponential spline as a 
viable alternative. Hov/ever, our exponential spline tension 
parameter selection algorithm has removed this impediment, 
thus paving the way for it to become an important tool of 
the computational fluid dynamicist. 
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Figure III. 2.1. Stretching Function 



COMPUTATIONAL GRID 
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Figure III. 2. 2. Stretched Mesh 


PARAMETRIC EXPONENTIAL SPLINE 
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Figure III. 2. 3. Korn Cascade Airfoil 
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Figure III. 2. 5. Velocity Schedules (15 points) 
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Figure III. 2. 9. Blowup of Regions of Variation 
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Figure III. 2. 11. Momentum Thickness Reynolds Number 
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In this section we present explicit approximate 
techniques for the numerical solution of second order 
linear partial differential equations. Basically, spatial 
derivatives are replaced by the derivatives at nodes of 
interpolatory splines. The cases of elliptic, parabolic and 
hyperbolic equations [18] are considered in turn. Note 
that these schemes have straightforward implicit counterparts. 

Our aim here is to lay the ground work for more ambitious 
applications to nonlinear problems. 

Laplace's Equation 

To illustrate the use of splines in the solution of 
elliptic boundary value problems we treat the Laplace 
equation 

u + u =0 
XX yy 

in the unit squre R = [0,1]^ with Dirichlet boundary 
conditions 

u = f on 8R. 

We perform our calculation on a rectangular mesh 
of dimensions (AX, AY). First define 

P(X,Y) = f(X,0)(l-Y) + f(X,l)Y + f(0,Y)(l-X) + f(l,Y)X 

- f (0,0) (1-X) (1-Y) - f (0,1) (l-X)Y- f (l,0)X(l-Y)-f (1,1)XY, 

i.e. F is the bilinear blend of the boundary data. 
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Now use P(x,y) as Cauchy data for the heat equation 

Ui. = a t u 
t ^xx yy 

2 

on S = [0,1] X [0,T] . At each time step we enforce u = f 
on 3S. When the solution has reached a steady state we 
will have our desired solution to Au = 0. 

The solution of the heat equation now becomes the 
focus of attention. 


Heat Equation 

Consider the heat equation (parabolic) in one spatial 
dimension 

^t '^xx ^ [0f“) 

together with the initial data 


u (x, 0) = f (x) , X € IR . 


A conventional approach to this problem is to use a 
forward difference in time coupled with a central difference 
in space. This results in the explicit scheme 


^n+1 

1 


.n 

. • 

1 


Ax 


uy - = U-; + - 2uJ + . 


Letting 


^ 3 At 


Ax2 


and performing a von Neumann 


stability analysis we arrive at the following expression 
for the amplification factor: 
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n 
u . 
1 




u 


n+1 


g = 1 + 2X 

Since we want |g| <1 for 
require that 


g , S = pAx =► 

(cos 5 - 1) . 

all Fourier modes we must 


X 


< 


1 

2 * 


Alternatively, we could approximate u at the n — 
time level using an exponential spline (with uniform 
tension) . 

We then have 


^^^xx^i-l 2d(u^^). + ^ 2u. +u._3_) 


and now 


n+1 n , , .n 

“k = “k + '■ 


k=i-l , i , i+1 


n+X , on n+1 , n+1 n n ,At,n » 

e Ui-1+ 2 du. + eu.^3_ = eu. .j^+2du.+eu.^j^+ i5^(Ui+i-2u^+Ui.;L) 


g = 1 + X 


Ax (cos ? - 1) 
e cos ? + d 


=> X < 


d-e 


Ax * 

For the cubic spline this yields 


X < i . 
6 


However, as the tension increases we have 

d-e 


Ax 


0 
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i.e. an increasingly stringent stability restriction. Hence, 
large tension is not recommended for this problem. Note that 
the cubic spline and central difference both provide an 
0(Ax ) accurate approximation to u while the latter has 

XX 

the more favorable stability characteristics. 

It is shown in Appendix I that the average of the 
cubic spline and central difference approximations to u 

XX 

is fourth order accurate on a uniform mesh. The remaining 
questions concern the stability of such a scheme. 
Correspondingly, let 

, T u. 1 - 2u. + u. , T 

" I ^ ’ 

where S(x) denotes the cubic spline. I.e. 


1 _ II 2 _ II , 1 _ " 

6 ®i-l ■'* 3 ®i 6 ®i+l 


Ax 


(S-T - 2S. + S.,,) . 


2 '"^i-1 "'i+l 


^^^2^ ^ ' k=i-l,i,i+l 


_ 1 n+1 , 2 n+1 , 1 n+1 _ 1 , n . 2 , n 1 n 

6 "i-1 + 3 “l -^6 “i+1 - 6 "i-1 + 3 “i 6 ’"i+1 


At , n 


+ - 2u"?+ 


2Ax 


^i+1' 


At , 1 n , 1 . n 


n , 1 „n ,1 „n 


y .1. AX , J. IX 11 , a. .^11 . u- 

1 ^ 6 ^i-2 ^ 3 ^i-1 “ ^i 3 ^i+1 ^ 6 i+2 


2Ax 


^ 1 T( cos T+ - 2T [8 cos ? - 9 + cos 2^] 


=> A < I . 
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Hence we have achieved higher order accuracy together 
with a reasonable stability restriction. 

Wave Equation 

Consider the wave equation (hyperbolic) in one spatial 
dimension 


^tt ^xx ^ [0/<») 

together with the initial conditions 


u(x,0) = f (x) / u^(x,0) = h(x) , X e 5R . 


One straightforward technique for treating this 
problem is to use central differences in both time and space. 
This produces the explicit scheme 


u 


n+1 


n. , liL a. /LAL.V £4 / Li. ^ J.I , . lA. « 


n-1 


, Atv 2 , n 


n , . n 


where the calculation initially uses u^ = h to produce 
the required two previous time levels. 

Letting ^ ^ ^ once again perform a von Neumann 

stability analysis. 

, ? = pAx 


u 


n-1 ^ ^ipx „n ^ ^ „ipx „n+l ^ „2^ipx 


. u. = g e 


, u v g e 


2 

=► g = 1 - y + /y (y-2) where y e X (1 - cos 5) 
y<2=» X^<1 

=> X < 1 . 
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If instead we approximate u using an exponential 

A 

spline (with uniform tension) we have 


2d 


Ax ^^xx^i-1 Ax ^^xx^i 5x ^^xx^i+1 


Ax 


2 


Now 


- 2u^ + ujj"’- = At^(u„„)^ ; k = i-l,i,i+l 


XX 'k 


^ / e n+1 2d n+1 e , n+1 

te "i-i + “i + s "i+i' ■ “i-i “i+i 


,, 11 ' rj / e n 2d n © n . 

) “ 2 (xr u,_i + xrr u. + y— u, ) 


. / e ,,n-l , 2d ,,n-l , e n-1 
^Ax ^i-1 Ax ^i Ax ^i+1 


2 ,, n o, n , n 
^^i+1 “ ^^i ^i~l' 


(g - 2g + 1) 


e cos ? + d 


Ax 


= gX"^ (cos C - 1) 


- X (1 - cos K) Ax , 
Letting u = ' 2 (e cos S + d) 


g - 2g + 1 + 2yg = 0 =► g = (1-y) + /y (y-2) 


which once again requires 


y < 2 =«* X^ < 


4(e cos g + d) 
Ax (1 - cos k ) 




For the cubic spline this yields 


X 


< 


/3 


However, as for the heat equation. 


d-e 


-> 


0 


I 
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with increasing tension. This stability restriction again 
discourages the use of large tension for this problem. 

The cubic spline and central difference are comparable 
in accuracy. 

We next study the use of the average of the cubic 
spline and central difference approximations which is fourth 
order accurate on a uniform mesh (see Appendix I) . Let 

<"xx>i 2 tSl + 1 


Ax" 


where S (x) denotes the cubic spline. I.e., 


1 

6 

s'.' , + f s'.' + 

1-1 3 1 

1 " 

6 ®i+l " 

1 

Ax2 

'Si-1 

• 

• t 

, i~i+l n., n-1 

“k 2u^+Uj^ 

At^ 

[s'l + 

n 

^k+1 


2 



“"i ' “"i+l' 
n . n 


Ax" 


] ; k=i-l,i,i+l 


1 ,n+l 2 „n+l , 1 „n+li ^rl n ,2 n,l n , 
+ 5 - “i+l> - 2(-g- u._^ + 3- u. + J u.+^l 


A. r 1 a. 2 , n-1 1 , ,n-l, _ At"^ , n _ n. n . 

^ 6 ^i-1 3 ^i '^6 ^i+1^ “ ^^i-l"^^i'^^i+l^ 

2 Ax 


j- pin , 1 „n n . 1 n .1 n , 

^ 2Ax^ ^ i-2 3 ^i-l"^i'’’3 ^i+1 6 ^i+2^ 


=> (g^-2g+l) 
Letting 


-5 = 


j . t ^ j,Qg ^ 1 (ijos 25-3] 


4 (cos 5+2) 


[10 “ 8 cos 5-2 cos"^5] 
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we arrive again at 


g - 2g + 1 + 2]ig = 0 


which we know requires 


y < 2 


< 


8 (cos C + 2) 


10-8 cos K - 2 cos'^5 


< i =• X < -i- 
2 /2 


Hence this scheme provides higher order accuracy while 
maintaining stability. 
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III. 4. Model Problem 


In subsequent sections we will apply spline approxi- 
mations to the numerical solution of nonlinear systems of • 
hyperbolic conservation laws. The stability of such a 
scheme can most easily be studied by considering model 
equations with constant coefficients. 

Therefore, in this section we investigate the 
prototypical equation 


u, + cu =0 on X [0,“) 

*tZ ^ 


with u(x,0) = f(x) V X € IR. All calculations are to be 
performed on a mesh with uniform Ax and At. 

We begin by considering forward differences in both 
time and space. This results in 


u ^-^1 = u ^ - 
3 3 


cAt / n n. 

T3? <“j+l - 


A von Neumann stability analysis reveals an amplification 
factor 

g = 1 + A - X 


where A e . We thus require that -1 < A < 0. 

Alternatively, use of a backward spatial difference 


u 


n+1 

j 



A(uj - 




yields 

g = 1 - A + A 

We thus restrict 0 < A < 1 in this case. 
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These results are not surprising since they simply 
restate the C-P-L condition that the numerical domain of 
dependence should contain the true domain of dependence. 
However, these one-sided differences are only first order 
accurate. It would seem that second order accuracy could 
be achieved by using a central difference since that 
would fulfill the C-F-L requirement for arbitrary c. 

Such a scheme takes the form 

with an amplification factor 

g = 1 - X sin ? i . 

This is seen to be unconditionally unstable. Hence care 
must be taken in choosing a time marching scheme. 

The above deficiency can be remedied by approximating 

thus producing the Lax scheme 

2 ^^j+1 ^j-1^ “ 2 " ^j-1^ 

=► g = cos ? - iX sin 5 


X| < 1 . 


We can increase spatial accuracy by using a fourth 
order central difference 
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i ~ A^x ^12 ^i-2 " 3 3 ^i+1 " 12 ^i+2^ * 


This yields the scheme 


n+1 1 / n , n , 

“j 2 <"j+i + “j-r 


- \ (2- - 2 n 4. 2 n _ _L hH \ 

^^12 ^i~2 3 ^i-1^3 ^i+1 12 ^i+Z 


g = cos C - li sin C 


4 - cos ? 


X < 


4 - cos 5 


x| < I . 


When boundaries are present such a scheme vould require modificaticns. 

It is shown in Appendix I that a 
scheme which does not suffer this drawback, yet 
maintains fourth order accuracy on a uniform mesh,, can be 
constructed using spline approximations to u . In this 
scheme we have 




2 (d+e) ^^x^j-1 d+e ^^x^j 2 (d+e) ^^x^ j+1 2Ax 

- I <"k+i + “k-i> + uj^ = 0 , k=j-i,j,:+i 

then yields 


e r n+1 1 / n , , , d 

2 (d+e) ^^j+1 2 ^^j+2'^^j^^ d+e 


1 , n , n » , 

2 


r n+1 1 , n , n ... c At , n . n . 


2 (d+e) ^'^j-l 2 


= 0 


g = cos ? - 1 sin C f- f " x ~ J 

^ [e cos 5 + <^ 


IM < 


d-e 

d+e 
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For the cubic spline we have d = h/3, e = h/6 

=> \l\ < 1/3 


while for the linear spline we recover 

1^1 • 

Now that we have achieved a high order of spatial 
accuracy let us turn our attention to obtaining higher order 
temporal accuracy. This will ensure more accurate unsteady 
calculations while allowing us to take larger time steps 
when attempting to march to a steady state. 

The time integration schemes considered thus far have 
been first order accurate. We attempt to extend this 
accuracy by employing classical Runge-Kutta techniques. 

Hence, consider the second order Runge-Kutta scheme 


u<«> 



= u'O) 


= u"» 


= u<2) 


X 




X 


Here D is the two point central difference operator. The 
first step yields an amplification factor 

= 1-X sin ?i = 1 - 2Pi 

. „ _ X sin 4 

where P = 2 • 

The second step produces an amplification factor 
g(2) = 1 - 2Pi - 2P^ = q . 
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Hence/ 

|q|^ = (1-2P^)^ + 4p^ = (l-2y.)^ + 4y 
= 1 + 4U^ >1 

2 

where y = p . Thus this scheme is unconditionally unstable. 
Similar results obtain for the fourth order central differ- 
ence and the spline scheme. We will not dwell on deriving 
a stable scheme that is second order accurate in time since 
even higher order accuracy is our ultimate design. 

Instead consider the Runge-Kutta scheme of third 

order 


u<°> = u" 




= u«» - 

cAt 

2 

D 

X 

v,<°> 

u<2> = u«» - 

cAt 

“x 


u(3) = u''” - 

cAt 

6 

D 

X 

(u<'»+4u<1)+u‘2>) 

. 




• definiteness 

let 

D 

X 

be the two point central 


difference operator. Letting P = ^ this 

successively yields the amplification factors 


g(l) = 1 - iP 

g(2) = 1 - 2iP - 4P^ 


(3) 


= 1 - 2pi - 2P^ + I iP^ = (1-2P^) + 2ip(j P^ - 1) = q 


. 2 , 2 


.2 ,2 


=> |gp = (1-2P"‘)"‘ + 4P"-(| P^" - 1) = 1 - I 

where y = P^. We hence restrict P ^ I P I - 


16 


V 




X < 2 
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Hence this scheme is stable as well as accurate. Similar 
calculations can be done for the other D under considera- 
tion. We refrain from doing this as the next scheme is 
the one of primary interest to us. 

Consider the Runge-Kutta scheme of fourth order 




U<1> 

II 

c 

o 

cAt 

2 


u<2) 

(0) 
= u ' ' 

cAt. 

D u^^^ 



2 

X 

u'3) 

= u«» 

“ cAt 


u<^> 

= u<“> 

cAt 

6 


n+1 

n 

= „(4) 




u 


= u 


Initicilly, let D be the two point central difference 


operator. Then 

( 1 ) _ 


g--' = 1 - Pi 

g^^^ = 1 - Pi - 

g^^^ = 1 - 2Pi - 2P^ + 2iP^ 

g^^^ = 1 - 2Pi - 2P^ + j P^i + 


I -= q 


where P = 4 sin K 


=> |q|^ = (1-2P^+ I P^)^+ 4P^(| P^ - 1)^ 

= (1 - 2u + I + 4li(| U - 1)^ 


2 

where w = P . 


134 


We hence restrict )i < 2 =*• [ P | < /2 


=> |X| < 2/2 ^ 2.828427125. 

Now if we let D be the fourth order central differ- 
ence operator we obtain the same expression for with 
P redefined as 


P = j (| sin e - I sin 2^) = ^ (4 - cos K) 

We again require | P | < /2 which now yields 


A| < 


6 


max 


?e[0,27T] 


sin ? (4 - cos C) 


-1 


•/2 


~ 6/2 (0.2429150227) 
« 2.061202317 


If we instead use the spline approximation to D we 

!X! 

once again obtain the same expression for g^^^ however 
with P now defined as 

p = 1 sin g (d+e) 

2 (e cos ? + d) 

|P| < /2 -> |X| < 2/2 • - 1 . 

e 1 

Hence, for the cubic spline we have, since j J ^ 

1 1 1 < 2 ^ = 1.632993162 

while for the linear spline we have, since = 0 / 


Because of the accuracy and stability of this scheme 
it is used in our subsequent calculations. In addition, no 
modifications are needed at the boundaries and no loss of 
accuracy results. 

Figures II.4.1a-c show a comparison of the computed 
solution to the exact solution for our model problem using 
the exponential spline with fourth order Runge-Kutta scheme. 
The calculation was done on three successively finer 
meshes and shows visually the effect of mesh refinement 
on accuracy. 
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III. 5. Inviscid Burger ' s Equation 


In this section we begin our treatment of nonlinear 
hyperbolic conservation laws using splines. The subject of 
discussion is a nonlinear analogue of our model problem, 
namely the inviscid Burger's equation [39] 

u^ + uu^ = 0 on (x,t) e x [0,~) . 

This equation which is in quasilinear form can be put 
into the conservation, or divergence, form 

^t ° • 

Before proceeding further with this equation, we 
digress for a general discussion of the single conservation 
law [29] 


"t = 
or 

u. = a u w/ a = df/du 

subject to the initial condition 

u(x,0) = (p (x) . 

Since f (u) is in general nonlinear we cannot guarantee the 
existence of a smooth solution for all time. Instead we seek 
weak solutions satisfying 

00 00 oo 

j j (w^u-w^f) dx dt + I w(x,0) (|) (x) dx = 0 , 

0 “00 —00 
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for all smooth test functions, w, which vanish for |x[+t 
large enough. 

One must consider whether a numerical solution 
technique has the capability of capturing such a weak 
solution. We now present the following convergence result 
which is a generalization of a theorem of Lax and Wendroff 
[28]. First recall that the exponential spline, t ( x) , 
can be defined in terms of its first derivatives at the 
knots. These values are determined by the tridiagonal 
system of linear algebraic equations 


f . , -f . f . -f . 

A.t! . +b.t! =a. • - —-4 — - + 3_. - ^ 


X 1“1 11 1 1+1 

V7here 


h. 


^i-1 


^i = 


B . = 
1 


C- = 


(di-e.) 


-(di_i) (d. -Bi) ^ (di> (d..i-e._if 
+ 


(di_i+ei_j^> 


(dj^ + 






(d.+e.) [(d._ 3 ^-e._j^) + (d.-e.)] 


a . = 
1 


3. = 




d. -,-e. ,+d.-e. 
1-1 1-1 1 1 


^i~^i 

‘^i-l"®i-l 


1 + 


d . -e ■ 
1 1 


d. T~e. T+d.-e. 
1-1 1-1 1 1 


What is of key importance to us here is that 


A. + B. + 
1 1 


C. = 
1 


a. + 
1 


Bi = 1 
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Theorem. 


If we approximate u, = f by 


Av _ . 
It - 


(where t (x) is the exponential spline interpolant) and as 
At and h = max h^ tend to zero v converges boundedly almost 
everywhere to some function u(x,t) then u(x,t) is a 
weak solution. 


Proof: We have by assumption 


and hence that 


1 1 
At 


X' X 



n+1 n 
^i-l"^i-l 

+ 

1 

1 1 

+ 

n+1 n 
^i+l“^i+l 

At 

At 


At 



. » 


. 4 


f"? -f^ 

= an . + 

1 h. 




1 l-l 
^i-1 


Multiplying both sides by W^At h^ and summing over all grid 
points yields 


00 00 




r V 1 nv^i/^n+l n . . 0 ^ 1 / n+i n. , ^n/„n+i n v,*. , 
nio i=-». ^ 


n, n+1 n, 


.n /..n+1 n 


- “> f*? -f^ 

= I I W^[aJ — - 

n=0 i=-~ ^ '^i 


f^-f^ 

+ 3^ ^ . ~^ .]At h. 

1 hi_i 1 


or LHS = RHS for convenience. 


LHS = 


OO 00 


(let Ag? = g^'*’^ - g?) 


I I h. AvJ_, + wJbJAvJ + Av^ ^] . 

n =0 i=-co 111 11 111 11 1+1 
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Lenrma (summation by parts) 




^ u*^»Av^ = - 

n=0 




00 00 


=> LHS = 


I I At h. 
n=0 i=“°° 


n=0 
__n+l 


A A(wW)v^'*’^ 

•ia JL ^ ■!> « « 


At 

St 


At 


00 




0„0 0 


, 0^0 0 


l =-00 
00 00 


. ' .LHS - 


Now 


W.u dx dt - W(x,0) ()>(x) dx . 

t 


0 


RHS = 


00 00 


-n 


-n 




i s: At h. - At h, wW ji + At h.W^B" 

n=0 i=-«> 1 1 i-i- 




_ At h. W?6? 


00 00 




n 


i 1 ii. • >1 

x-1 


f? 


11 At h..^w;.^a5_^ ^ - At jji 

n=0 i=-“ 1-1 1 




f? 


^ h, - At h,^, E7 


00 00 ] h . 

= I I At 1 

n=0 i=-“ ( 1-1 


h 

.non i+1 „n qH 


W^‘3V - 


wV., 3V 


"i+l^i+1 
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Z Z At ff(w? 1 + tr-i- W^(l-a^) - 

n=0 i=-oo -*' ^ ^ ^i -1 ^ ^ 

^i+.l ttH /I ^n 

- -h7- Wi+i(l-c.i^.l)| 


= „L J „ ^?{”i-i“?-i - ”?“i + 


n=0 i=-“ 
h 


''i+i 


k : 


i-l 




wjd-a^) 


+ -4^ [Wj(l-a-) - 


“ „!o i!-. #?-!“?-! - "i“i - ^ 

.n. \ 


i+1 




h. h-j_i 

1 1+1 


1 . ^ 
1-1 


W^U-aV); 


NOW let 
then 


h. 

1 

— 1 

^i+1 

j ^^"'^i-1 

1 . , 
1-1 

h. 

1 

00 oo 

A p 

\ ] 

[(Ax) ■ 

‘ (aw) + & 

XX 


I , — u , , 

1 1-1 


0 -°° 


so that to recover a weak solution we require 


(i) (aw) bounded; 
x<x 

The restrictions p. ->p, h.->- 
smoothness of W(x/t) allow 


(ii) (5 [(a-l)w]^+ 6 rwd-a) ] = 0 , 

h Vi together with the assumed 
us to conclude 
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RHS ■> 


00 00 


1 1 

0 -00 


W f dx dt . 


Hence 


uu uu 00 

I I (W^u-W^f) dx dt + I W(x,0) (|) (x) dx = 0 


0 -00 


Q.E.D. 


Note that the requirement of an asymptotically uniform 
mesh appears unavoidable. Meanwhile, the assumption of 
asymptotically uniform tension may be relaxed to p -»■ a step 
function. Furthermore, p(x) a step function is sufficiently 
general to avoid having to employ uniform tension while 
allowing for the fitting of local phenomena such as shocks 
and other discontinuities. Hence, it is not overly restric- 
tive. 


We now return to our discussion of Burger's equation. 
This equation admits both compression waves and expansion 
waves as solutions [29] . We consider two examples. 


Compression Wave^. 


1 , X ^ 0 

(|) (x) = 1-x, 0 5 X < 1 

.0 , 1 1 X 

This wave front steepens until at t = 1 a discontinuity 
develops. I.e., for t < 1, 

1 , X £ t 

u(x,t) = ■( 


t < X < 1 
(. 0 , 1 < X 


while for t > 1, 
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1 


f 


u (x,t) 


X < 


1+t 

2 


0 , 


< X 


Expansion Wave 





X < 0 
0 < X 


This problem has the two solutions 

f 0 , X < t/ 2 
u(x,t) = ■{ 

i 1 , t/2 < X 

' 0 , X < 0 

^ , 0 £ X £ t 

. 1 , t < X 

The physically relevant solution is the one satisfying the 
so called entropy condition (inequality) which requires 
that the characteristics issuing from either side of the 
discontinuity curve in the direction of increasing t 
should intersect the line of discontinuity. This excludes 
the discontinuous solution u(x,t). 

The task before us is now clear. We must devise a 
numerical scheme that will capture discontinuities as well 
as select the physically relevant solution from the, 
generally infinite, collection of weak solutions to an 
initial value problem. 

This is accomplished by adding a suitable artificial 
viscosity term [24] to the exponential spline -- Runge-Kutta 
scheme as applied to the model problem in the previous 


and 

u(x,t) = { 
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section. This effectively shifts the derivative calcula- 
tion upstream thus modeling the correct domain of 
dependence while prohibiting expansion shocks. 

The switching function will be dependent on 
since we know this to be large for the high tension values 
anticipated in the neighborhood of a shock. Specifically 




) 

x' 


^i+l/2^'^x^i+l/2 ^i-l/2^'^x^i-l/2 


where 

e = min (h^* | / 1/2) . 


Hence, when high tension is present, the point of evalua- 
tion of f is shifted to the mid-point of the appropriate 
adjoining interval since 


D^tf(Ui)] » (Vi - = (T^ - h(CVJ., 


which, with e = 1/2, becomes 

h 


[T 


X 1 xx-* i 




If u < 0 then the approximation is 


°x (^i^ ^ i ^i+1/2 ^'^x^ i+1/2 " ^i-1/2 ^'^x^ i-1/2 


(T ). + h[(£T ) ] . = [T +h(ET ) ]. . 

X'X XXX *• X ' X x-* X 


Note that these artificial viscosity terms are themselves 
in divergence form thus preserving the overall conserva- 
tion form necessary for convergence to a weak solution in 
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the limit of vanishing mesh width. 

Note also that the above choice for e produces an 

3 

0(h ) artificial viscosity term away from the shock. 

This is consistent with the spatial discretization error 
on a nonuniform mesh. For a uniform mesh we may alter 
this term as follows 

e = min(h^- ,1/2) . 

The corresponding artificial viscosity term is now O(h^). 

We now calculate solutions to our two previous 
examples. In Figures III,5.3a-f the expansion wave is 
seen to be accurately portrayed with any inadequacies being 
the result of the curve fit for the discontinuous initial 
data. The compression wave calculation displayed in 
Figures III.5.4a-k likewise reflects a high degree of 
accuracy. Most notable are the predicted location of the 
shock for large t, the sharp shock resolution, and the 
conspicuous lack of overshoots and undershoots at the shock. 
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Figure III. 5. 2. Cauchy Data For Expansion Wave 







Figure III. 5. 3d. 


1.5 
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Figure Ill.S.Se. Expansion Wave (N= 100 



i.e 



156 


Figure 




l.S 
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Figure III. 5. 4b. Compression Wave (N=100^ t=1.2, NSTEP=20) 
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Figure III.5.4d. Compression Wave (N=100, t=2.4, USTEP=40) 


3*1 
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Figure III.5.4e. Compression Wave (n= IQQ 


3*1 
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Figure III.5.4f . Compression Wave (isr= 100^ t = 3.6, NSTEP= 60) 




1.2 
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Figure 



1.2 
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Figure III. 
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III. 6. Riemann Problem 


We now take up a much more formidable problem from 
the physical*, mathematical and computational points of view. 

We refer to the classical shock tube problem of Riemann. 

At t = 0 we have a tube of infinite extent containing a gas 
in two distinct states separated by a diaphragm. The 
diaphragm is then instantaneously removed the result 
being a shock wave moving in one direction followed by a 
contact discontinuity, these in addition to a rarefaction 
wave travelling in the opposite direction. This situation 
is illustrated diagrammatically in Figure III. 6 . 1 . 

The explicit solution to this problem can be provided, 
e.g. see Liepmann and Roshko [ 31 ] . Specifically all of 
the state variables change on passing from one side of the 
centered expansion wave to the other (i.e. p^ p^ , ^4 P3 > 

U4 ^ u^) . This transition occurs in a continuous fashion 
although derivatives of fluid flow quantities may have a 
jump. At the contact discontinuity, which is the locus 
of the fluid initially at x = 0, the density is discontinuous 
(i.e. ?2 “ P3 ' ^ ^3 ’ ^2~^3^’ flow quantities generally 

experience a jump at the shock (i.e., P2f^P]^r P2 U2?^Uj^). 

Here p is pressure, P is density, and u is velocity. 

The important parameters can be obtained as follows. 

The shock strength, P2/P1/ is implicitly related to the 
diaphragm pressure ratio, by the basic shock tube 

equation 


1 - 


(Y-1) (a^/a^) (P2/Pi"l)" 


-2Y/(Y-1) 


L /4Y +2Y(Y+1) (P 2 /P 1 -II 
1/2 

where a. = (Yp./P.) ' . Thus we can use Newton's method 

JL JL 

with an initial guess of ( 1 +p^/pj^) /2 to iteratively 
calculate P2/P1 hence p ^ . We already know that p^ = P2 
We thus have Pj^ # P2 /P3 ^ P4 • We can then determine P2 from 
the Rankine-Hugoniot relation 


1 + 


Y+1 

Y-1 


Y+1 . P2 


Since we assume a perfect gas we have the isentropic relation 


1/Y 


P4 


for the determination of P^. Now we also have ^4 

The shock speed , c , is determined by 

s 


^s = ^1 


Y-1 Y-1 

2 Y 2Y 


P' 


- 1 1/2 


The head of the rarefaction wave travels at the local speed 
of sound, a^, through the undisturbed fluid. The tail of 
the rarefaction wave travels at the speed 


Y+1 t 

■=3 = ^4 - — l"p 


where jUp[ = U2 = is the speed of propagation of the 
contact discontinuity which may be calculated from either 


Uo = a. 


fEi ^ r " I 

^Pl ^ UY+1)P2/Pi+(Y-1)J 


1/2 


or 


u, = 


2s. . 
4 

Y-1 


,P3, (Y~1)/2Y 

(~) 

P4 


These quantities furnish a complete solution to the problem 
with the exception of the variations within the expansion 
wave. Thus we have at our disposal the means for an exact 
comparison on a problem of substance. 

The one dimensional BJuler equations may be written 
in the conservation law form [46] 

P 4 , + (Pu) = 0 

t X 

2 

(ra)^+(~-l- P)^^- 0 
(e) (^(e+p ) ) ^=0 

1 2 

where m = Pu is momentum and e= P£^+-^Pu is the total energy 
per unit volume with e the internal energy per unit mass. 

For a poly tropic gas e = p/(Y~l)P. Hence we have 


p = (Y-l)pe = (Y-1) (e - I Pu^) = (Y-1) (e - | ^) 


We may write the above in the vector form 




+ P^(U) 


= 0 


with the state vector 


U = 


P 

m 

e 
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and the flux vector 


) mmmmta xsrszr= r 
» 


F(U) = 


+ P 
^ (e+p) 

This may also be written in the quasilinear form 


m 


m 

P 

m 


+ A(U)U^ = 0 


where 


*>* 

A(U) 


8U 


(Y-3)u /2 


1 

(3-Y)u 


(Y-l)u^-Yeu/P ^-3(Y-1) 


u 


0 

(Y-1) 

Yu 


with eigenvalues = u, ^2 ~ u+c, ^2 ~ u-c. Here c is 
the local speed of sound and is determined from 

^ [e - I 1 . 


At this point we note that many subsequent relations 
are merely one dimensional specializations of two dimensional 
results derived in the next section. Hence, we omit detailed 
derivations in this instance so as to avoid redundancy. 

In what follows we would like to produce a Q 3 

Q”^A Q = a (diagonal) . 

However, computing the eigenvalues and eigenvectors of A 
is quite formidable due to the complexity of the Jacobian 
matrix. Therefore, we take the following circuitous route 
[53]. 
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The one dimensional Euler equations may be written as 


where 


U. + A U =0 

■A , m 

u = [p u p]^ 


and 


A = 


~ — 1 

Here A = M AM where 


u P 0 

0 u 1/P 

0 Pc^ u 


M 


10 0 
u P 0 
_u^/2 Pu 1/(Y-1) 


M 


-1 


1 0 
-u/P 1/P 

.(Y-l)uV2 (l-Y)u 


0 

0 

(Y-1) 


A is more easily diagonalized as 

Q A Q = A = diag [u u+c u~c] 


with 



I 

P/(/2 c) 

P/ ( /2 c ) 


" 1 

0 

-l/c^ 

Q = 

0 

1//2 

-1//2 

= 

0 

1//2 

l/(/2 Pc) 


_0 

pc//2 

Pc//2 


_ 0 

-1//2 

l/(/2 Pc)_ 
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Hence Q = Mq“ =»• q"^ = 





Now consider our original equations 
->- -)- 
U. + A U =0 '=► 

t X 

+ Q A Q-^U^ = 0 . 

Now freeze U, i.e. perform a local linearization of the 

- - 1 -^ 

system of equations. Also let U = Q U. Then we have 

" “x = ° 

which is nothing more than our model problem in triplicate. 
However, since for subsonic flow we have u+c and u - c of 
opposite sign we need to shift spatial derivatives in 
conflicting directions. 

We could circumvent this difficulty if we could split 
our flux vector, F, into pieces with univalent eigenvalues. 
This is precisely the motivation for the Flux Vector Split- 
ting technique of Steger and Warming [50] which we now adapt 
to our purposes. 

Observe that F{U) is a homogeneous function of degree 
one, i.e. F(cxu) = otF(U). Euler's theorem on homogeneous 
functions then implies that F = A U . Thus 

F = aS = QAq”^U = Q(A'*' + A") q"^U 

= qa"''q"^u + QA~ q"^U = 

+ — 
where A has nonnegative elements and A has nonpositive 

elements. We prefer the following split: 
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y+ _ u + u 

Ai = 2 » 

^2 = + c , 

X+ _ x+ 

Note that this splitting 
In general, if 



^3 - Xl - c 

yields homogeneous and 


then 


F 


= 

■ 2Y 


where 


A = diag 
2 (y-1) 

2 (T“l) Xj|U+X 2 (u+c) +X^ (u-c) 

A C 

.vPXp 

(Y-l)X^U + (u+c) + -y (u-c)'^+W 

^ (3-Y) (X2+X3)c^ 


Q A q”^ U 


We now generalize our scheme to this setting. Once 
again a fourth order Runge-Kutta integration is used in time 
while Fjj(U) is approximated by where, 

letting f”^ and F be the generic components of and f 
respectively , 


— 4* 

D F (U. 

MB \ w M 


D^F"(Ui) 

Here 


^i+l/2^'^x^i+l/2 " ^i-l/2^'^x^i-l/2 * 
e.'*" =■- min (h^- 

e“ = min (h^. * 
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We now present some computational results obtained 
using this technique. The items of interest are the predic- 
tion of correct quantity levels, the location of the shock, 
contact discontinuity and rarefaction wave, the degree of 
resolution of the discontinuities and the suppression of 
oscillations , overshoots and undershoots in regions of rapid 
variation . 

The first example is taken from Sod's survey papL_. [46]. 
The pressure ratio has a value of 10 with the diaphragm loca- 
tion at X = 0.5. The calculation was performed on both a 
coarse. Pigs. III.6.2a-e, and a fine mesh. Figures III.6.3a-e. 

The second example is from Steger and Warming's 
Flux Vector Splitting report [50] . The pressure ratio 
has a value of 5 with the diaphragm location at x = 3. 

This calculation was also performed on both a coarse. 

Figures III,6.4a-e, and a fine mesh. Figures III.6.5a-e. 

It is clear that the method performs very well by all 
the above criteria. Of particular note are the invariance 
of shock smearing (in units of mesh widths) to mesh size 
and the resolution of the contact discontinuity for large t. 
These results are competitive with those displayed in the 
referenced works. 
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e.d e.a 0.4 0.6 6«8 1.9 

Figure III. 6. 2a. Sod Test Case (N= 50, t=0.14, NSTEP= 35) 
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PRESSURE 



Figure III.6.2e. Sod Test Case (N= 50 ^ t.= 0.14/ NSTEP = 35) 
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III 



ENERGY / WLUME 
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Figure III. 6.3c. Sod Test Case (N=100/ t=0.14^ NSTEP= 70) 
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Figure IIl.6.3e. Sod Test Case (N= 100, t= 0.14^ NSTEP=70) 
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Figure III 
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Figure II 


PRESSURE 



Figure lil.6.4e. gteger •& wajrming Test' Case (n= 40, t = 0.8 / irSTEF= 20) 
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Figure III. 6. 5a. Steger & Warming Test Case (N= 80, t= 0.8^ NSTEP = 40) 



nonEHTUfl 



Figure III. 6. 5b. Steuer & Waiming Test Case (N= 80/ t - 0.8/ NSTEP- W 





ENERGY / UOLUNE 
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Figure 111.6.5c. Steger & Warifting Test Case (N= 80/ t- 0.3^ HSTEP- 40) 




in 
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Figure III.6.5e. Stager & Warming Test Case (W= 80, t=0.8/ NSTEP=40) 


III. 7. Transonic Channel Problem 


This section takes up the generalization of our 
approach to multidimensional problems. The problem that 
we consider, transonic flow in a channel, presents the 
additional complication of requiring the treatment of 
boundaries [19,22,27,52]. 

We first discuss the two dimensional Euler equations. 
This is followed by the extension of Flux Vector Splitting 
to two dimensions in an arbitrary coordinate system. As 
promised earlier we take this occasion to supply full 
details. With this background material available to us, 
we next describe the problem of transonic flow over a 
bump in a channel. We then detail our numerical approach, 
the discussion of the consistent enforcement of boundary 
conditions occupying a central position. We conclude with 
the results of some numerical calculations. 


2D Euler Equations 

The two-dimensional Euler equations may be written, as 
the system of hyperbolic conservation laws 

3t ^ 3x 9y ^ 


where 


p 


Pu 

• 

Pv 

m 


Pu^+p 


Puv 


/ F = 


, G E 

2 

n 


Puv 


Pv +p 

_e_ 


_ u(e+p) _ 


v(e+p) _ 


Here P is the density, u and v are the Cartesian 
velocity components in the x and y directions respectively, 
and e is the total energy per unit volume. Note that e is 
related to e, the internal energy per unit mass, by 
e = pe + I (u^+ v^) = pe + (m^+ n^)/2P. 

In general, the equation of state is 


P = p(Pfe) 

which for a perfect gas becomes 

p = (Y-i)pe 

2 2 

P = (Y-1) [e - (m^ + n^)/2P] e = 

where Y is the ratio of specific heats. 

The above system of equations may also be written in 
the quasilinear form 




+ B 


3y 


0 


where A = -gy , B = ^ , are the Jacobian matrices. 

Let P= k^A + k 2 B ; k^^,k 2 ^ iR. The system is hyperbolic at 
the point (x,y,t,u) if 3 Q bQ^PQ=A (diagonal) with 
real Vi and the norms of Q and Q ^ uniformly bounded. 
We next explicitly calculate the elements of A and B. 
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m 


P 


~+ (Y-1) [e-(m^+n^)/2Pl 

mn 

P 

^ (e+ (Y-1) [e-(m^+n^)/2P]) 


9P 


0 

v2 


uv 

(1-Y)u(u^+v2) 


-1 


(Y-3)u 

-V 


Ye . Y-1 


2 2 
(3u +v"^) 


0 0 

(Y-l)v 1-Y 
-u 0 

(Y-l)uv -Yu 


G 


n 


mn 

P 

2 

(Y-1) [e-(m^+n^)/2P] 
^ (e+(Y-l) [e-(m^+n^)/2P]) 


=s> 


3G 

•a^u ■ 


0 

0 

-1 

0 

uv 

-V 

-u 

0 


(Y-l)u 

(Y-3)v 

1-Y 

I|^+ (l-Y)v(u^+v^) 

(Y-l)uv 

-^+^(3v^+ u^) 

-Yv 


= B. 

Because of the complexity of these Jacobian matrices, 
the calculation of A, Q, q”^ is quite cumbersome. Hence we 
recast the equations in the nonconservative or primitive 
variable form 
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0 


where 


8U 

Jt + 


a 4. 


B 


3U 



P 


U 

P 

0 

0 

•V 

u 


0 

u 

0 

1/P 

U = 

V 

/ A E 

0 

0 

u 

0 


_ p_ 


_o 

PC= 

0 

u _ 


B = 


V 

0 

0 

0 


0 

V 

0 

0 


0 

0 


Pc 


V 1/P 
2 


V 


2 

where c = Yp/P 


_ Y(Y-l) 

p I® 


/ 2^ 2. 

(m +n ) 1 
2P ^ 


is the local speed of sound. 

We obtain this result as follows: 


^ + a 1 u + b^=o 


9U 

9U 

9U 



•V 

9U 

. 9u 

+ B 

. iLI 

9U 

9U 

- - - » 

9U 

9if 

9t 

+ A 

. . 

9U 

9U 

9x 

9U 

* "Su* 


9U . 

rsf 

iu + 

A m 

m. 

lu + 

P • 

9U. 

*v 

9U 


n 


9U 



9U 

9x ^ 

JD • 

9U 

9y 


u 


»v 

r&u 


9u'~ 

1 9U 


— 

9U 

B • 


9U 


9t 

\jv' 

A • 

9U- 

J ^ 

+ 

Ju* 

9U-^ 

* 9y 



= 0 


= 0 


B|g = 0 

9t 9x 3y 

. ~ -1 ~ -1 9U ”1 

with A = M AM, B = M BM where M = -4 M 

9U 


9U * 
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1 


Now, U = [P/in,n,e]^ and U ~ [P,u,v,p]^ ■* 




(Y-1) m^+n^ 


(1-Y)^ 


(1-Y) 


so that 


M = 


(u^+v^)/2 


1/(Y-1) 


M-l = 


-u/P 

-v/P 

(Y-1) (u^+v^)/2 


(l-Y)u 


(l-Y)v 


(Y-1) 
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We thus have 

A = m"^A M , B = M 

SO that if we have 

Arf >V 

P H k^A + k2B 

and 

M *1 ^ PS* ~ 

Q P Q = A 

then 

P = kj^M'^AM + k2M”^B M = m“^ (k^A + k2B) M = m“^P M . 

PS* 

This first of all implies that A = A since P and P are now 
seen to be similar. In addition/ we now have 

q“^m"^p m q = a => 

Q = M Q and q“^ = . 

pv rs* PS* 

It remains to diagonalize P = k^A + k 2 B . 
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(i) X - kj^u+k2V 


0 

0 

0 

0 


kj^P 

0 

0 




k 2 P 

0 

0 


k 2 Pc- 


k,/P 

kn/P 


X, 


X. 


X. 




->• 

= 0 


X. = 0 , X, = - 


let 


Qi = 


0 

0 

0 


1^-2 


Q 2 = 


-k. 


where k^ = k^ / (k^ +k^) V2 ^ ^ k^/(khkh^^^. 

— — £. X 4 , 


(ii) X = kj^u+k2V + c(k^+k2)^'^^ 


-c(kJ+k^)^/2 

0 

0 

0 


kiP 


^" 2 P 


-c(k^+k2)^/^ 0 


kj^pc' 


-cCkJ+k^) 

2 


k 2 Pc' 


= ^ 
o ' . let 


^2 pc ^4* 


^3 = 


P/(/2 c) 
Pc//2 


k^/p 

^ 2 ^P 

-c(k^fk^)^/^ 


X, 


X. 


L.^4 
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(iii) X - k^u+k2V-c(k^+k2)^^^ 


c(k^+k2)^/^ 

0 

0 

0 


kiP 

c(kj+k2)^^^ 


k 2 p 


k^/P 


0 c(kJ+k^)^/2 


klPc- 


k 2 Pc' 


c(k^+k 2 ) 


X, 


X, 


X, 


X, 


-f 

=: 0 ^ 


X, 



X 


4 • 


. * . let 


Hence 


tv 



P/(/2 c) 

-k^//2 

-k2//2 

pc/i^ 



1 

0 

P/(/2 c) 

P/(/2 c) 

tv 

Q = 

0 

<v 

^2 

ki//2 

-ki//2 


0 

"^1 

kV^ 

-k2/^ 

and 

_ 0 

0 

Pc//2 

Pc//2 







0 

0 

~l/c^ 

— 1 

Q = 

0 

tv 

k2 

tv 

‘"^1 

tv 

0 


0 


k^//2 

l/(/2 Pc) 


_ 0 


-k,//? 

l/(/2 Pc)_ 


Note that 
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X 


Q Q 


and 


Q B Q = 


u 

0 

0 

0 

V 

0 

0 

0 


0 

u 


ck2/V2 

ck«//2 


ck2/>^ 

u+ck. 


0 

V 


•ck^//2 

■ckj^//2 


-ckj^/ZJ 

v+ck^ 


ck2/v^ 

0 

u-ck^ . 
0 

“Ck^//2 

0 

v-ck^ 


so that this particular choice of Q not only diagonalizes P 
but also simultaneously symmetrizes A and B. 

2D Flux Vector Splitting 


3U 

7t 


3F 

3x 


9y 




0 ....V/X' ^ — d G 

; h = , B = . 


- 

3U 


3x ’ ^ ^ 

The crucial observation is to note that both F(U) and G(U) 
are homogeneous functions of degree one. I.e. 


F(au) = aF(U) ; 


G(au) = ac(U) . 


Euler's theorem on homogeneous functions then allows us to 
conclude that 

F = AU , G = BU . 


We have noted before that (Q = Q(k 2 ^/k 2 ) etc.) 
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Q"^a,0) A Q(1,0) 
and 

q“^(0,1) B Q(0,1) 

A = Q(1,0) A(1,0) Q"^(1,0) 

and 

B = Q(0,1) A(0,1) q“^( 0,1) 
hence 

£ - Q(1,0) A(1,0) q’^(1,0) U 

and . 

G = Q(0,1) A(0,1) q"-^(0,1) U . 

Now decompose 

A(1,0) = A‘^(1,0) + A~(1,0) 

A(0,1) = A’^(0,1) + A"(0,1) 

where A"*" and A” have positive and negative eigenvalues, 
respectively. This now leads to the following splitting 
of the flux vectors F and G. 

F = Q(1,0) [A'’’(1,0) + A"(1,0)] q"^(1,0) U 
G = Q(0,1) [A+(0,D + A“(0,1)] q"^(0,1) U 

’F = [Q(1,0) A'^(1,0) Q"^(1,0) + Q(1,0) A”(1,0) q"^(1,0)]U 

= (a’’" + a") U 

✓ 

G= [Q(0,D A'^(0,1) Q"^(0,1) + Q(0,1) A”(0,1) q”^(0,1)]U 

= (b’’’ + b") U 
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p = a'^'u + a“u = f'*’ + f' 


G = b'*'U + b“u = g’’* + G“. 


Note that , in general , 


^ ^ 3U 


A ^ 


3F 

3U 


B-^’ 


b“ = 


as has been observed by Steger and Warming [50] . However, 
we do have the following result which has eluded the 
attention of earlier authors. 

Theorem . If the A splitting is chosen so as to produce 
+ + 9F 

a homogeneous F then A = , 

+ + 

Proof: We have F = A (U)U. Define A^(U) H . 

+ , -I- 

Since F is homogeneous we have F = A^(U)U and hence 


a‘*’(U)U = a^(U)u V U eiR^. Thus F(u)*U = 0 V u where 
_ + “] 

Z = A Let P Z P = J be the Jordan canonical form 

and hence Z = PJP This results in JU = 0 V U € ir^ 


where U = P ^U. Therefore, all the eigenvalues of Z are 
zero and J has no ones along its super-diagonal. Hence 
Z = 0, i.e. A*^ = A. . Q.E.D. 

•r 

Note that similar results obtain for A~, b"^, and b”. 
With these considerations aside, we solve the problem 

+ F*’’ + f" + g'*' + g" = 0 
t X X y y 

. . + , + _ _ 
by upwinding F and G while downwinding F and G . 

As we have seen above 


f’*' 

= Q(1,0) 

A'^(1,0) 

q" 

■^(1,0) U 

f" 

= Q(1,0) 

A~(1,0) 

q“ 

(1,0) U 

G-' 

= Q(0,1) 

1 — i 

o 

+ 

< 

q" 

■^(0,1) u 

g" 

= Q(0,1) 

A"(0,1) 

q" 

■^( 0 , 1 ) u 


207 


In order to facilitate the computation of these 
flux vector splittings we present the general form for 
<!> = Q(k^,k 2 ) A(k^,k 2 )Q~^ (k^,k 2 )U. Recalling that Q = M 
and Q~^ = and upon performing the required 

multiplications we arrive at 


$ 


_P_ 

2Y 


2{y-i)X^+x^ + 

2 (Y-1) X^u+^2 (u+ck^) (u-ckj^) 

2 (Y“l) 

(Y-1)^3^(u^+v^)+ ^ [(u+ck^)^+(v+ck2^^^ 

+ -Y [ (u-ck^) (v-ck2) +w 


where 


w 


(3-Y) (^3+A^)c' 
2 (Y-1) 

2.,.2v V2 


and, once again, k^^ = 

We use the homogeneous splitting 


, k. 


= k2/(k^+k2) 


A+(1,0)=X^(1,0)= 

X+(0,1)=X+(0,1)= ^ 

X3(l,0)=X^(l,0)+c 

X+(0,l)=X^(0,l)+c 

x"!; (i,o)=xt(i,Q) 

4 1 

X+(0,1)=X+(0,1) 


, X^(1,0)=X2(1,0)= 



, X-(0,1)=X2(0,1)= - 
, X“(1,0)=X"(1,0) 

, X3(0,1)=X^(0,1) 

, X4(1,Q)=X"(1,0)-c 
, X"(0,l)=X"(0,l)-c 



20(3 


?a 





These results can be generalized to an arbitrary 
coordinate system as follows. Consider the transfomation 
of coordinates (x,y) -*■ (X,Y) and its effect on 

. 9P ^ ^ Q 

3t ax 8y 

(where J = Xj^y^ - Xyyj^) which by the homogeneity of F and G 

y X ^ y 

=» (JU)^ + {— F(JU)--^ G(JU))jj+ (-^ G(JU)- P(JU) )y = 0. 

/N 

Letting U h ju we arrive at 

•5T ^ F(U) - -f- G(U)]+ ^ [-/• G{U)- F(U)]y = 0 


while letting 

F(.) E 


X 


P(-) - * G(-) 


X 


X 


G(-) E - ^ . F(-) + • G(-) 


produces 


_ /N 

3U 


^F(U) f ^G(U) . 

Hence, conservation form is preserved under such 
a transformation as is homogeneity of the flux vectors. 

We are thus led to splitting F(U) and G(U) . The following 
observation simplifies matters considerably. 

In order to split, e.g., 

F(U) =-j--F(U)- • G(U) = y^-FCU) - Xy*G(U) =F(U) 

we simply split 


F(U) = y. 


F(U) 


X, 


G(U) = k^F + k2G 
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This is conveniently done 


with = Yy and k 2 = 
using 

f'*' = Q(kj^,k2) A’''(k^,k2) Q"^(k^,k2)U 
F — Q(kj^/k2) A (kj|^fk2) Q (kj^/k2) U 
which are given in general form by Note that 


k^u+k2V+c (k^+k^) 

k^u+k2V-c (k^+k^) 

We use the splitting 

1^=12“ (kj^u+k2V+|k^u+k2v| )/2, ^4 ~ ' 

= X2 “ (kj^u+k2V- 1 k^u+k2v] ) /2 , ^3 “ ' ^4 “ 

The same split is used for G(U) = G(U) with = -y^^ 
and k 2 = 

Flow Over a Bump 

Consider a channel whose upper wall is straight and 
whose lower wall is likewise straight and parallel with 
the exception of a protrusion or "bump". We consider the 
calculation of inviscid rotational flow in this geometry. 

In our calculations this bump will be a B-spline, S (x) . 
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We assume that the flow is uniform and subsonic at 
upstream infinity. With a normalization this becomes 

= 1, u^ = 1, = 0. At downstream infinity, which is 

also assumed subsonic, we specify p = Po^. The flow tangency 
condition is invoked along the channel walls. 

We will attempt to march from an initial flow field 
to a steady state continually enforcing the above boundary 
conditions. The required initial conditions are generated 
as follows. 


P 


0 


e 


0 


1 


1 

Y(Y-l)Mf 


+ 


1 

2 


To obtain an initial velocity field we generate u and v 
along the walls such that we have flow tangency there. 
The resulting distributions are then linearly blended. 

Along y = 0, u +v*" = 1 together with v = u*S' (x) 


u(x,0) 

u(x,y) 


>/l+[S’(x)]^ 

y 


v(x,0) 


max 




= S' (x) 
-/l+[S'(x)]^ 

) . u(x,0) 

^max 


9 


v(x,y) = • v(x,y ) + (1 — ^ — ) * v(x,0) . 

^max ^max 

For calculational purposes, we will need a mapping 
of the above geometry to a rectangle. To obtain a boundary 
conforming grid we induce a shearing of the y-coordinate. 

In order to cluster grid points over the bump we invoke 
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a stretching of the x-coordinate. 

We are thus led to consider the transformation 


t = T, x = ?(X), y = Y + S (x(X) ) • [1 - 


max 


“ ? ' ( X) f 


Xy = 0 


Yjj = S ' (x) *Xj^* [1 


y, 


-] , 


Yv= 


S(x) 


max 


■max 


This sends the conservation law 


U^. + f + g =0 
t X 


to 


(JU)^ + (yY^”^y 9 )x " yx^^Y ^ 


= 0 


where J h Xj^y^ - Xyy^^ . Letting r = JU , this becomes 


Yv ->■->■ 


Xx ^ 


' V *->• *->- ^ vr ->■ -V 


+ [-J- f(r) - -J- g{r)]j^ + [- ~ f{r) + -j- g(r)]Y = 0 


by the assumed homogeneity of t and g. Figure III. 7.1 
displays the resulting mesh. 


Numerical Solution of the Channel Problem 

We now generalize our Runge-Kutta spline scheme to two 
dimensions. It will be clear that the corresponding generali- 
zations to even higher dimensions are straightforward. The 
enforcement of boundary conditions is not considered in 
this section but is deferred to the following section. 

We saw in the previous section that our problem reduces 
to solving 
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0 




T 


on a rectangular domain. Here r = J[P m n e] and 


F = [■ 


g = [- 


f - 


yx 


j 

X 


gl 


X 


f + • g] 


where t and g are the flux vectors in the 2D Euler 
equations. Note that we have preserved conservation form! 

A quick calculation shows that in this context the 
fourth order Runge-Kutta scheme becomes 

Uq = O' ^ 




At 


-V ->• 


->■ ->■ 


"2 “ "o - 2? 


At 


-V 


“3 = “0 - X tV<"2> + V<°2>’ 


At 


-> ■> 


-V 


U4 = Uq - ^ [Dx(<f (Uq) + 2 $(U^) + 2$(U2) + ^(Ug) ) 






+ Dy(r(UQ) + 2r(Uj^) + 2r(u2> + r{U3))i 


3 g(n+l) 


where 

J ^{u) = y^f(v) - X^giu) = «>(U) 

j $(u) = -Yjjf(u) f x^g(5) = f(u) . 

^ ■> 

Now, and are defined as in the one dimensional 

case. First $ and T are split as previously described 
producing 
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DjjJ = D'f'' + 

Dyf = D"r+ + D^r‘ . 

Letting $ , $ , F , F denote the generic components of 

■^4- 

$ ,F ,F respectively we define 


D-*+(U.) = 
D+*-(U.) = 


' ^i+l/2*’'x’i+l/2 ■*■ 


^i-1/2 i-1/2 

®i-l/2 ^^X^ i-1/2 


where 


e"** = min(Ax^* , 1 / 1 ) 

and _ „ 

e = min(Ax^* ,1/2) . 


Correspondingly 


D;r+(S.) 

D^r-(S.) 

where 

and 


(Vi 


(Vi 


+ 


^i+1/2 i+1/2 ^i-1/2 i-1/2 

^i+1/2 ^’^Y^i+1/2 " ^i-1/2 ^"^Y^ i-1/2 

min(AY2 . |fJyI '1/2) 

min(AY^' |F yyI /1/2) . 


Boundary Condition Treatment 

For the discussion of boundary conditions alone, we 
consider the two-dimensional (2D) Euler equations in 
nonconservation form. All required notation is defined in 
the previous section on the 2D Euler equations. Hence, in 
terms of the primitive variables (P,u,v,p) , we have 

U. + a 5 + BU„ = 0 . 
t X y 
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Letting - 1, k 2 = 0 in the definition of Q yielda 


and hence 



1 

0 

P 

P 




c/2 

c/2 


0 

0 

1 

-1 

S H 



/2 

/? 

1 

1 

0 

-1 

0 

0 


0 

0 

Pc 

Pc 




/2 

/2 




-1 


1 

0 

0 

J. 

5" 





c^ 


0 

0 

-1 

0 

q-1 - 





o — 

0 

_1_ 

0 

1 



/2 


Pc/2 


0 


0 

1 



/2 


Pc/2 


Note that 


S”^A S 


u 

0 

0 

0 


V 

0 

0 

0 

0 

u 

0 

0 

— 1 ~ 

, S S = 

0 

V 

Z£ 

/2 

~c 

/2 

0 

0 

u+c 

0 


0 

-c 

/? 

V 

0 

_ 0 

0 

0 

u-c _ 


_ 0 

“C 

/2 

0 

V _ 


Letting k^ = 0, k 2 


T = 


= 1 in the definition of Q yields 

P 


0 

1 

0 


P 

c/2 

0 

1 

/2 

Pc 

/2 


c/2 

0 

-1 

/2 

Pc 

/2 


and hence 
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Henceforth, we identify a frozen quantity by a bar. 

Now, along the channel inlet and outlet the number 
and type of boundary conditions are determined by the 
equation 

«t + * “x = 0 . 

We now perform a local linearization via frozen values of 
the elements of A. Recall that 

S S = E diag [u,u,u+c,u-c] 

A = S S"^ 

^ U. + S A s“^*U = 0 

=>■ tux 

=> S"^U. + A s"^U = 0 . 

tux 
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Making the substitution 

W 


S 


we have, as a consequence of the linearization, 




which is a system of uncoupled scalar equations. Since 
the inlet is assumed subsonic we have three positive 
eigenvalues and one negative eigenvalue. We hence specify 
three conditions at the inlet being careful not to deter- 
mine the characteristic variable, W^ , associated with 
u-c. At the outlet we have the opposite situation and 
hence specify one condition being careful not to determine 
Wi , W 2 or . We thus 1 . *.ve 


W = 


”1 


p - 

^ -2 



c 

”2 


- V 

»v 

”3 


_L [U+-E-] 

/2 Pc 

1 

1 


-i- [-U+ 

_ »/2 Pc _ 


(= s"^u) 


Along the upper channel wall the relevant equation is 


+ B Uy = 0 . 


Recall th^t 


—1 

T B T = = diag [v,v,v+c ,v-c] 
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0 


B = T t"^ 

+ T = 

+ A^ t"^ Uy = 0 . 


Making the substitution 

V = T -^ U 

•V 

together with freezing the elements of B at their current 
values yields 


which is once again an uncoupled system of scalar equations. 
Since the upper wall is straight the flow tangency condi- 
tion requires that v = 0 along it. We hence have one 
positive eigenvalue and one negative eigenvalue. Therefore, 
along the upper channel wall we stipulate one condition 
being careful not to fully specify ^ 3 * 

We thus have 




1 

1 

Q. 



c 

^2 


u 

'^3 

— 

[v+ 

/2 Pc 

^4 


~ [-V+ -2_] 

_/2 Pc 


Since the lower channel wall is not flat we must perform a 
local rotation (and translation) of coordinate system. 

For this discussion, define 
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a = tan"^- (fe 


where we use the principal value (-ir/2 £ a ^ ir/2) and dy/dx 
is the slope at the generic point (Xq^Yq) along the lower 
wa]. 1 . We have 

+ A + B Uy = 0. 

Invoke the transformation 

X = (X-Xq) cos a + (Y-Yq) sin a 

Y = -(X-XQ)sin a + (Y-Yq) cos a. 

The above equation becomes 

Ut + A + B U- = 0 

with 

A = cos a • A + sin a • B 

B = -sin a • A + cos a • B . 

The relevant equation for the boundary conditions 
along the lower channel wall is therefore 

U + B U = 0 . 
t Y 

Hence, we are interested in diagonalizing B. Using the 
formulae of Beam and Warming with - -sin oi and 
k .2 •" cos ct yields (k^ ~ ' ^2 ~ ^2^ 

r"^BR = a e diag [X^,X2/^3/^4] 
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with ~ ^2 “ a • u + cos a • v, + c, 
X4 = Xi - c (note that " ^2 ” nomnal component of 
the flow) and 




0 

p 

P 




c/2 

c/2 


0 

cos a 

-sin a 

sin ot 


/2 

/2 



R = 

0 

sin a 

cos Oi 

-cos 0 ( 


/2 

/2 




0 

0 

Pc 

Pc 


— 


/2 

/2 


r' 


0 

-1 


1 

0 

“ 2 " 





«Ci 

c 


0 

cos a 

sin ot 

0 

R-l= 

0 

-sin ot 

cos ot 

1 




Pc/2 


0 

sin a 

-cos a 

1 


•/2 

/2 

Pc/2 

• 

• • 



. -1 




B 

= RA R 



=> 


ra r"^u = 0 





Y 



=> 

r”^u. 

+ A r"^U = 0 

• 



u 

Y 



Now make the substitution 

Z = r“^ U 

while freezing the elements of B which results in the uncoupled 
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scalar equations 


Z. + A z = 0 . 

^ Y 


We thus have > 0 / ^4 < 0 which implies that we should 
specify one condition along the lower channel wall taking 
care not to determine , ^2 or Z^ . We obtain 


1 

N^ 

}-» 

1 



1 

Q. 




'S' 

^2 


cos 

0^ • u + sin 

a 

0 

V 

7 


-sin O’ 

cos ot 

• n fi • 


4. 

_ p 



/2 


V 


P c /2 

'S> 

L"4_ 


sin oi 

cos Ot 

V 


P 


L /2 

u 

/2 


pc/?- 


We now treat the boundary conditions along the inlet, 
outlet, upper wall, and lov/er wall. In what follows, once 
„("+!) = tp(n+l) y(n+l) ^(n+1) p(n+l),T determined 

we find by using 

the appropriate relationships. 


00 


Inlet 

We specify = u^, = v 

•V 'S' 

while discarding the equations for W^ , W 2 , W^ . We allow 
W^ to be determined by the differential equation. This 
produces 

p(n+l) ^ ^ p - -j _ 


Outlet 


We specify and allow W^ , • ^3 

determined by the differential equation. This produces 


= p +(p -5 )/c2 


u 


(n+l) _ „ + (p-p„)/Pc 




Upper Wall 

We specify v = 0 in lieu of the relation for „ 
^1' ^ 2 ' ^3 then determined by the differential equa- 

tion. This produces 

p(n+l) _ p p"/5 

= 5 + p5 V . 


Lower Wall 

We wish to have the normal component of the velocity 
Vcinish. Hence we require 


- sin a • u + cos a • v = 0 

V 

(i.e. _ = tan cx = gj ) . 

We replace the relation for with this requirement 

~ 

and then allow , Z2 ^ Z4 to be determined by the 
differential equcition. This produces 
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p(n+l) ^ 
^(n+1) ^ 


p - 

P ( 

- sin a • u + cos ct 

• v) 

cos 

. 

u + sin ot • cos a 

• V 

s.in 

a • 

2 

cos u • u + sin a 

• V 

P - 

P c 

(“ sin a • u + cos 

a • 


Numerical Result s 

The preceding analysis was implemented and tested on 
a subsonic problem and a transonic problem. The results of 
the calculations are displayed in Figures III . 7 . 2-III . 7 . 3 . 
The subsonic results reveal the anticipated symmetry. The 
transonic results produce the expected asymmetry together 
with a pressure loss upon passing through the shock along 
the lower wall. The successful treatment of upstream and 
downstream boundary conditions is evident in both cases. 

However, it should be noted that these two dimensional 
calculations require long execution times. The source of 
this difficulty is the multitude of required exponential 
function evaluations. Future work will focus on replacing 
the exponential basis functions by rational functions 
with the aim of rectifying this situation. 
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Figure III. 7. la. Computational Mesh — Coarse (20x7) 
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In this appendix we formally derive some expansions 
for the derivatives of the exponential spline at a node in 
terms of the derivatives at the node of the function being 
approximated. The primary tool is the calculus of finite 
difference operators [14,39]. Consequently, the results so 
obtained are not rigorous thus requiring supplementary 
proofs. However, this technique is useful for suggesting 
candidates for such relationships. These results are referred 
to in Sections III. 3 and III. 4. 

First Derivative 

As we know, the exponential spline satisfies 
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Proceeding symbolically, we have 


Q J 1 • •% 

1-1 1-1 


*^ 1-1 6 - 

72 k— + I + - t \ ^ 


1 1 




E + 


.^Vl"®i-l>hi_l <V®i>hi 


(di-ei)hi 


e’^U . 


Here 


E = e 


(h. D)^ 

I + (h^D )+ — 2l +...“> 


E = e 


-hi_iD 




(hi_iD) 


+ ...«> 


Before proceeding further we require some power series 
expansions for the spline coefficients! 


(i) e - ^ [1 - ^ p^h 2 +^-|^ p^h^ + 0 (p®h®)l 

(ii) d = I [1 - ^ pV + 2 p4j^4 ^ o(pV)] 


(iii) d^ - E ^ pV - pV + 0 (p®h®)] 


1 _ 1 


= 1. r*? 4. ^ r^2u2 1 4. 4 , 6 6 
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(P"h")l 
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e^ “ ? ^ 0(p®h®) ] 


rr^ = -E 

a “ e 


JO 1 2,2 , 13 4. 4.^, 6^6 

h [2 30 P ^ ■’■ 12,600 ^ ^ +0(P h 


(viii) 


d _ 1 


d2-e2 h 


= -^ [4 + ^ p-h‘ - 


2 2^2 _ 11 _ 4^4 


6,300 


p’h"+ 0(p"h'^)] 


We may now proceed by inserting the appropriate 
expansions into the relation between tI and f.. This yields 


i = { 


aQl + a^^D + a2D^ + a^D^ + a^D^ + a^ 


+ . . .| 


•|c^D + C2D^ + CgD^ + + CgD^ + . 

where d is the differentiation operator, Df^ = f'(Xj|^) 


In the above 
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rr.2 u2 2,2, 13 / 4 , 4 4, 4, ^ 
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1 ^ 1 / 2 .6 2 . 6 . 
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b 


5 




Hence, 

+ (b2Cj^+b2C2+bj^C2+bQC^) D 

+ (b^Cj^+ b2C2+ ^2°3"^ ^1*^4’^ ***} ^i ‘ 


Note that = 1. 

When Pj^hj^ = ph Vi we have 

bgCj + biCi = 0 

bpC^ + b,C2 + b^c, " O(h^) 

‘^ 3°1 ''• '^ 2°2 '^ 1°3 + ‘= 0°4 = “ 

4 

v/hile all succeeding terms are 0(h). That is for uniform 
tension and mesh width the spline first derivative is a 
fourth order accurate approximation to the first derivative 
of the approximated function (at the nodes) . 


Second Derivative 


As we know, the exponential spline satisfies 




f “f f • “”f 
^i+1 ^i ^i ^i-1 


T 5 T 


’’i-1 


at interior nodes. 

With the necessary operators being defined as in 
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the previous section, this may be rewritten as 
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Proceeding symbolically, we have 
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Utilizing our by now standard expansions for the spline 
coefficients yields 
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With the b's as defined in the previous section we have 
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For p . h. = ph Vi we have 


4 = <^xx>i + flS- '^XK>i - n <*xxxx>i’‘'" + °< 


We see that the uniformity conditions do not yield the 
increase in accuracy encountered in our analysis of first 
derivative approximation. 

In spite of this, the above expansion can be exploited 
in the following fashion. An expansion of f reveals 


f.,,~2f.+f. , 
1+1 1 1-1 


^^xx^i ^^xxxx^i 12 ^ • 


Combining this with our previous expansion produces 

2 


" ^i+l”’^^i'*'^i-l 

T.- . + _iZ± = 2 ( f ) . 

1 ^2 XX 1 

_ 24+(ph)‘ 
12 


IsM. 

12 


( fxx ) i -^ 0 ( h **) 


( f ,^) i + 0 ( h “) 


242 





12 

24+ (ph) 


[TV 
'■ 1 
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= (*xx> i + 


0( 


hs 


i.e. a- fourth order accurate approximation. Note 
that for the cubic spline (p = 0) this reduces to 
the arithmetic mecin. 

Recasting the spline equations as 


e T.. X 2d . e _ ^i+l~^^i'^^i"l 

E i-1 h i h i+1 “ ^2 


we can rewrite the above as 
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However, our original expansion for t^ =» 


(f 


xxxx^ i 


12 r l2 + (ph)^ . 

.2 12 ' xx^i 
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t"] + O(h^) . 


This gives us the added bonus of a second order accurate 
approximation to the fourth derivative 
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Note that in the case of the cubic spline (p = 0, e = h/6, 
d = h/3) this reduces to 


(f ) ■ = 

XXXX X 


T '• — O T •• 4. T •• 

^i-1 ^^i+^i+1 


i.e. a central differencing of t"(x) at x = x^. 

The uniform mesh expansions lead to expressions for 
third derivative approximations. 
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II 
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TV 
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I [T-(xt) + T.-(x:)l = ^ 


= f!" + ^ - p"f. ) + 0(h") 


(ii) ['^"’(xt) - T-(x^)] = £ - 2 c*T^ + 
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T-(xJ) -T-(x:) . 2" 2 
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II I 1 ^ ^ 
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=► + -i i ^ i + O(h^) 

= + I '"i+X - + "I-ll + 


= I •^'^i+1 ^P® “ 2c) + TV_^] + 0(h^') 

So that we have yet another second order accurate approxima- 
tion to the fourth derivative. 
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Appendix II 


Spline Routines 


c 

C "f* 

C «*• DRIVER FOR PARAMETRIC EXPONENTIAL SPLINE PACKAGEt 
C «*<• B. J. MCCARTIN 10/60 
C 
C 

DIMENSION XP( 100),TPn00).S(100l,6X( 100).BY(100)»TAUOPXUQ0)> 
ITAUDPrl 100),PX( 100 hPT( 100),HXI 100),HY(100) 

CALL ERR££n207,2S6,-l,l ,0) 
call ERROET(C08,2S6,-l,l,O) 

CALL TKINIT 
REAO( IStlOl NPl 
10 FORMAT! 131 

WRITE! lb, 201 NPl 
20 FORMAT! IX, ’NPl = ' ,131 
WRITE! 16.30 1 

30 FORflAT! ' XP TP' 1 

DO 60 I:l,NPl 
READ! IS.AOl XP!I1,YP(I1 
^0 FORMAT! 2E 15. 7 I 

WRITE! 16,501 XPdl.YPdl 
SO FORMAT! 1X.2E15.71 
60 CONTINUE 

READ! 15,701 XENOL, YENDL ,XENDR , YENOR ,EPS 
70 FORMAT! SE15. 71 

WRITE! 16,601 XENOL , YENOL vXENDR , YENDR , EPS 
80 FORMAT! IX, ‘XENDL = ',E15.7,' YENDL = ',E1S.7,' XENDR = ',E15,7. 
1‘ YENUR = ',E15.7,' EPS = ',E15.71 

CALL PAREXP!XP,YP, NPl, XENOL, YENDL, XENOR, YENOR, EPS, S.BX, BY, 

I TAUDPX , TAUDPY ,PX , PY ,HX ,HY 1 
RETURN 
END 

C *<•» 

C MNM 

C PAREXP; B. J. MCCARTIN 10/60 

C 

C 

C FUNCTION: CONSTRUCTS THE PARAMETRIC EXPONENTIAL SPLINE 
C •••* INTERPOLANT TO A SET OF POINTS IN THE PLANE 

C USING SPECIFIED DERIVATIVE ENO CONDITIONS 

C »•••» NOTE: ARC LENGTH IS USED AS THE PARAMETER 

C 

C ***•• REFERENCE: 6. J. MCCARTIN, NUMERICAL COMPUTATION OF 
C EXPONENTIAL SPLINES, COURAHT MATHEMATICS 

C <•••» AND COMPUTING LABORATORY, OCTOBER I960 


c 







C 


DESCRIPTION 

OF CALLING ARGUMENTS: 



C 


XP 

s 

ABSCISSAE 



C 

#«* 

YP 

• 

ORDINATES 



c 


NPl 

= 

NUriBER OF ORDERED TRIPLETS OF DATA 



c 


XENDL 

= 

LEFT HAND OF /IVATIVE ENO CONDITION 

FOR 

XI SI 

c 

• « i» 

YENDL 

= 

LEFT HAND 0 ’IVATIVE END CONDITION 

FOR 

YiSl 

c 

Hr * 

.■ENOR 

s 

RIGHT HAND DERIVATIVE £1!D CONDITION 

FOR 

XISl 

c 

» H IT 

lENDR 

= 

RIGHT HAND DERIVATIVE ENO CONDITION 

FOR 

T!S) 

c 

H H M 

EPS 

= 

rOLERANce FOP STOPPING CRITERIA IN 
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C APC LENSTM ITERATION 

C S = APC LI NOTH 

C DX s PIOHT HAIiQ SIDE OF SPLINE E0UATION5 FOR X(S) 

C *»» DY = PICIIT HAt;0 SlOE OF SPLINE EQUATIONS FOR YIS) 

C <•»« TAUOPX = SOLUTION OF SPLINE CTJATIONS FOR X(3I 

C TAUOPY = SOLUriOII OF SPLINE EQUATIONS FOR Y(S) 

C PX = E/FOtILUTIAL SPLINE TEIiOION PARAMETERS FOR XI S) 

C PY = E>'(’0NCNTIAL spline rCNSIOM PARANETER5 FOR YIS) 

C *’>* MX = UCLTA 3 FOR XISI 

C -O' HV = DELTA S FOR Y(S) 

C • 

SUORCUTINE PAREXPIXP.YP.NPl ,XENOL,YENOL,XENDR,YENDR,EPS,S,BX,BY. 
ITAUOPX, TAUOPY, PX,PY,IIX,HY) 

DiriENSICM XPt I I.YPI I ),SI 11, 0X1 1) ,BYI U , TAUDPXI 1 ),TAUOPV( it. 

IP,N( I ),PYI I I.HXI I ),HY( I ) ,SN( 100) 

C *•»<♦ 

C »** CONPUTE CHORD LENGTH 
C •»*> * 

SI 1 ) = 0, 

DO 10 I:a,NPl 

10 SI I )SSI r-1 JfSQRTI (XPI I)-XP( I-l ) )*»2fl YPII)-YP(I-l))t**2> 

15 CONTINUE 
C 

C «•» FIT X VS. ARC LENGTH 
C »** 

CALL EXPSPLI 3 ,XP, XENDL ,X£NOR ,NPi ,BX,TAlJOPX,PX,KXf ALPHAX ) 

C 

C FIT Y VS. ARC LENGTH 

C ••••» 

CALL EXPSPLI S , yp , YENOL , YENOR ,NPI ,BY , TAUOPY , PY ,HY ,ALPHAV ) 

C 

C «>*|* PLOT Y VS. X 

C »** 

CALL PLTPIT(S,XP,YP,NPl, OX, BY, TAUOPX, TAUOPY, PXiPY.HX.HY, 
lALPHAX.ALPHAY) 

C 

C RECALCULATE ARC LENGTH 

C 

CALL ARCLENI S , NP 1 , DX , BY , TAUOPX , TAUO PY , PX , PY , HX , H Y , ALPHAX , ALPHA Y , 
ISN.XP.YP) 

C O'** 

C •<•* OETERMINE SIGNFICANCE OF RELATIVE CHANGE IN ARC LENGTH 
C >*** 

00 30 1=2, NPl 

IF(ABSMSNII)-8(I))/IS(I)-SU-l))l.GE.EP5l GO TO 31 

30 CONTINUE 
GO TO 35 

31 DO 32 1=2, NPt 

32 Sm = SNII) 

60 TO 15 

35 CONTINUE 
RETURN 
END 

C *•* 

C *** 

C *** AHCLEN: B. J. MCCARTIN lO/BO 
C *** 

c »»« 

C I*"* FUNCTION: APPROXIMATE ARC LENGTH INTEGRAL USING 
C "•* COMPOUND SIMPSON'S RULE 

C 
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C OESCRIPnOH CF CALlXi:0 Afv'GUVEHTS: 

C 3 = IDPUr ARC UEI.’ST.I 

C ' HPl = niJMCLR OF CROERFO TRIPLETS OF DATA 
C BX - RICKT MAtlQ SIDE OF SPLIMF. EQUATIONS FOR X(S) 

c ar = piriiT maiio side of spline equation’s for rtsi 

C •** TAUDPX = SOLUTION OF SPLINE EQUATIONS FOR X(SI 

C TAUOPY = SOLUTION OF SPLINE EQUATIONS FOR TIS) 

C »»» PX = EXrOflENTIAL SPLINE TENSION PARAMETERS FOR X(S) 

r, '•*« py = E'^'I’OtlENUAL SPLINE TENSION PARAMETERS FOR YCSJ 

C MX = DELTA S X1S» 

C NT = DELTA S FOR »IS) 

C "H* ALPNAX = ECALINC PARAriETLR FOR XI S) 

C ALRIAV = SCALING PARAMETER FOR T(S) 

C -•» 5N : OUTPUT ARC LENGTH 

C «•«* XP = ABSCISSAE 

C ««<♦ TP = ORDINATES 

C I* • » 

SUBROUTINE ARCLENI S.NPl ,SX, BY, TAUDPX, TAUOPY. PX.PY.HX.HY, 
1ALPHAX.ALPHAY,SN,XP,YP) 

DIMEN'SIQN S( ll.BXI l),BY( I ) ,TAUDPX( I I.TAUOPYJ 11,PX( I ),PY( 1), 
1IK( I ),HY( 1 I ,SN1 1),F( 11 l,XP( n,YP( n 

c * « • 

C calculate ARC LENGTH 

C ««* 

SN( n=o. 

DO 10 K--2.NP1 
OG=S(K)-S(K-I ) 

H:US/10. 

DO 5 L=l,IX 
Sl = ( L-1 l»H V 

CALL ESEVALI S.XP.NPt ,BX , TAUDPX ,PX ,HX, SI , XI ,OERIVX,ALPHAX ) 
CALL ESEVAL( S,lrP,NPl,8Y,TAUDPY,PT,HY,Sl,Yl .DERIVY .ALPHAY ) 

5 F( L)=SqRT( DERlVX»t»24DERIVY'‘''2 ) 

10 SN(K)-SN( K-l )♦( F( 1 )+<».«i(F( 2 ) + F(<H + F(6) + F(8)*F( 10) • 
l+2.<*(F(3) + F(5)»Fl7)»F(9))tF(n) »»H/3. 

RETURN 

END 

C 

C 

C PLTFIT: D. J. MCCAHTIN 10/60 

C 

C 

C •‘Kt FUNCTION: PLOTS THE PARAMETRIC EXPONENTIAL SPLINE 
C (H*** 

C DESCRIPTION OF CALLING ARGUMENTS: 

C <»*» S = ARC LENGTH 

C (*»,» XP = ABSCISSAE 

C YP = ORDINATES 

C NPl = NUMBER OF OROERED TRIPLETS OF DATA 

C >*0* BX = RIGHT HAND SIDE OF SPLINE EQUATIONS FOR X(S) 

C «>** BY = RIGHT HAND SIDE OF SPLINE EQUATIONS FOR Y(3) 

C TAUDPX = SOLUTION OF SPLINE EQUATIONS FOR X(S) 

C <•*« TAUOPY = SOLUTION OF SPLINE EQUATIONS FOR Y(S) 

C PX = EXPONENTIAL SPLINE TENSION PARAMETERS FOR X(S) 

C PY = EXPONENTIAL SPLINE TENSION PARAMETERS FOR Y(S) 

C '*•* HX = DELTA S FOR X(3) 

C HY = DELTA S FOR Y(S) 

C ALPNAX = SCALING PARAMETER FOR X(S) 

C *»» ALPHAY = SCALING PARAMETER FOR Y(3) 

C n m ft 
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• SL’UROUriNE PLTFiri S.yf, fP.riPl ,dx,dy,taudpx.taudpy,px,py .hx.hy, 
lALFHAX.^LFI.AY \ 

Olt'.EHSlCd ai I » iXPI 1 > , rp( I ) iDX( 1) »Dr( I ) iTAUDPUI l ) iTAUDPYI I ) f 
iPM I I |PY( U .HXi 1 ) ,HY( 1 ) iXPUT i 1 1000 I , Y PLTI 1 1000 1 1 
n IP'-ilRT I 2 I , IF! lUttI 2 1 , IPS tril 2 I , IPItICRI 2 ). TITLE 1 60 1 , 

3XLE;u 5 1 , 1 LBLl 5 I , IPLIliCI 2 I ,Zl 2 I 
OAIA aL0L/5«' V 

nAlA YLBL/5«' V 

DATA BLAriK/'* V 

0A1A TirLE/'A*' ■ , 'PARA' , 'METR* . ' 1C E' • 'XPOM' > ' EMTI ' » 

1 • AL S' , 'PHH* , 'E ' •/ 

Z( I l-DLAKK 
21 2 l=BLANK 
M.'-2 

K'STRTl 1 1 = 1 

IPSIRTI 2 l = tlPl*l 

IPMUni 1 l=HPl 

iri.'utu 2 ) = inpi-i )*ioo*i 

IPLItlEl 1 ) = -l 

IPLIMEt 2 

irSiMl 11 = 1 

ip:iYm2i=o 

ipincRi 1 1 = 1 

IPlnCRI 2 1 = 1 

uo 10 r=i,MPi 

XPLTI I »=>'.i''( I ) 

YPLT< I ) = tP( I ) 

10 COItTIlIUE 
M=HP1+1 
MP=HPl-l 
DO 20 K=1,NP 
DS = S(K*1 I-SIKI 
H=OS/10O. 

DO 25 L=1,10Q 
Sl = SiKH( L-1 )*<H 

CALL ESEVALl S.XP.NPl , BX , TAUDPX , PX .HX , 31 , XPLTI M ) .DERIVX. ALPHAX ) 
CALL E5EVAL1 S,YP,HP1 ,BY,TAUDPY,PYtHY,Sl , YPLT(fl)iOERIVY.ALPHAY) 
215 ri=IUl 
20 CONflMUE 

XPLtim=XP(NPl 1 
YPLTI m = YP(NPl ) 

DO 30 1 = 1, t1 
30 COMTIHUE 

CALL PLTEK ( XPLT , YPLT , 2 , NZ , IPSTRT , IPNUM , IPLIME , 

11P3YM,IP1NCR, TITLE, XLBL.YLBL.OUM) 

RETURM 

CKO 

C 

c 

C *•» E/PSPL: B. J. MCCARTIN 10/00 

c • «V M 

c ***>• 

C «•<* FUNCTION: CONSTRUCTS THE INTERPOLATORY EXPONENTIAL SPLINE 
C TO A SET OF POINTS IN THE PLANE WITH MONOTONICALLY 

C >•*■* INCREASING ABSCISSAE USING SPECIFIED DERIVATIVE 

C END CONDITIONS 

C • » » 

C »•-' REFERENCE: B. J. NCCARTIN, NUMERICAL COMPUTATION OF 
C EXPONENTIAL SPLINES, COURANT MATHEMATICS 

C »•* and COMPUriNG LABORATORY, OCTOBER 1900 

C ■ » » 


•V 
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C DESCRIPriOH or CAILII.'G ARGUMENTS! 

C X = AliOCISSAE 

C »•* F = OI’O HIMES 

C •«» PPA = LEFT MAtIO DERIVATIVE END CCNDITl>S 

C rPli = RIGHT IIAP.O DERIVATIVE END CONDITION 

C •«» NPl = N’.JI'.PEP OF CROERCO PAIRS OF DATA 

C •«* B = RICill HAND SIDE OF SPUME ECUATIONS 

C TAUDP. = SOLUTION Op SPLINE EOUATIOtlS 

C P = EXPOIIENTIAL SPLINE TENSION PARAflETEHS 

C II s DELTA X 

C ALPHA = SCALING PARAMETER 

C »•!* I 

SUBROUTINE EXPSPLI XiF.FPA.FPD.NPl ,B, TAUDP, P, Hi ALPHA) 

DIlltNSION XI U ,F( n,D( 1 I.TAUOPI 1I,P( U,H( I) 

DiriLMGION EllOO I ,DIAG( 100 ) ,ILIt1L( 100 ) ,ILIMU( 100),D( IOO),U( 100 ) 

REAL LAMCAR 

C •• • 

c liiiriAnzArioN 

c ► ^ • 

lOUT-l 
IPLQTiO 
CONST 1 = I, /6, 
cci!src = l ,/3. 

C0!ISri = -7./60. 
coitsr^^si ./2S20. 

CDNST5=-l ./IS. 

CONSr6=2 ./SIS. 

N=NPl-l 
EPS=l.E-6 
OI1EGA=l . 

£TA=.07 

3IGMA=IOO. 

ALPHA=l . 

ITNAX=5 

SCALE=E./(X(NP1 )-X( 1 ) ) 

IFlIOUr.NE.Ol WRITE! 16,2) ITMAX 

2 POPIIAT!/, • ITMAX = ' ,15) 

IFI lOUT.NE.O) WRITE! 16,3) EPS, OMEGA, ETA, SIGMA 

3 FORMAT!/,' EPS = ' ,E15.7,5X, 'OMEGA = ' ,E15.7,5X, 'ETA = ',EIS.7,5X, 
I'SIGMA = ' ,E15.7) 

IC0UNT=0 
DO 1 = 1 ,N 

H!II=X!r+n-X!I) 

A H! I l = 5CALE»H! I) 

DO 5 1=1, N 

5 P!I) = 0. 

IF! lOUT.NE.O) WRITE!16,6) 

6 FOPMATI/, ' I H' ) 

IFI lOUT.NE.O) WRITE!I6,7) ! I ,H! I ) , 1=1 ,N) 

7 FORMAT! 1X,I5,E15.7) 

C 

C ••<,» OEFIIIE B'S 

C *»» 

B! n = ! F! 2 )-F! n )/H! 1 )-FPA/SCALE 
IFIN.EQ.I ) GO TO 11 
DO 10 1 = 2, N 

10 BIII = (F(I*II-F!I))/Hm-!F!II-F!I-l) )/H! 1-1 ) 

11 BINPl l = FP8/SCALE-! F!NP1 l-F!Nn,'H!NI 
IFI IO'jT.NE.OI WRITE! 16,12) 

12 FOPMATI/, ' I 8' ) 

IF! lOUT.NE.O) WRITEI16,13) ! I ,B! I ) , 1=1 ,NP1 ) 

13 FORMAT! lX.IS.ElS. 71 
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C •r 

C •*** QETtRMINE IIMICM IIITERVALS SIIOULO BE FIT WITH 
C »«* LIME SEGMENTS ATfO WHICH INTERVALS SHOULD QE 
C FIT WITH ENTONENTIAL SPLINES 

C ••• K = T!UII3ER of exponential spline INTERVALS 

C *»« ILIULTH = LEFT HAND EIIOPOINT OF ITH SPLINE INTERVAL 

C O’** ILIIlUdJ = RIGHT HAND ENDPOINT OF ITH SPLINE INTERVAL 

C «< ►* 

K = 0 
IL=l 

U CONTITTUE 
DO 20 1=IL,N 
rENPsQTII^-Ba*!) 

IFITEMP.EQ.O. I GO TO 20 
K=.K»1 

ILIML(K)=I 

UO 1,6 J = I.N 

TENI'jBI J »*B( J*1 T 

IF( TEMP.NE.O. ) 60 TO 15 

ILItlU(K) = J 

00 TO 29 

15 IFTJ.NE.NT GO TO 16 
1LIMU(KI=N+1 

GO TO 30 

16 COTTTINUE 
20 CONTINUE 

GO TO 30 

29 IL = J 

GO TO 14 

30 CONTINUE 

IFdOUT NE.OT WRITET 16,31) K 

31 FORNATT/, ' K = ’ ,13) 

IF(K.EQ.O) GO TO SV 
IFdOUT. NE.O) WR1TE(16,32) 

32 FOPIIArdX,' I ILIML ILINU* ) 

IFdOUT. NE.O) WRITEd6,33) ( I .ILIMLd ) ,ILIMU( I ) ,1=1 ,K ) 

33 FURMAT(I5.IS,1X,IS) 

C 

C SET UP SPLINE EQUATIONS 
C 

34 Dim=0. 

ICQUNT=ICOUNT*l 

IFdOUT. NE.O) WRITET 16,1000) 

IFdOUT. NE.O) WRITE(16,36) ICOUNT 

36 FORNATT IX, 'ICOUNT = ',IS) 

IF( lOUT.NE.O) WRITEd6,37) 

37 FORNATT/,' I P H') 

IFdOUT. NE.O) WRITET 16, 3S) d ,PT I ) ,H( I ) ,1=1 ,N) 

35 F0RMATdX,IS,El5.7,El5.7) 

DO 40 1 = 1, N 

PI=PTIi 
HI=H( I ) 

PIHI = PI*>HI 
PI2=PI«PI 

IFIPIIII.GT.ETA) GO TO 39 
C USE POWER SERIES REPRESENTATION 
Pr2HI2 = PI2’.III>'HI 
PI4HN = PI2HI2 «PI:hI2 

E) I ) = ( 1 .♦CONST3'<PI2HI2*CONST4t<PI4HI4)«HI«CONSTl 
DI = ( I . »C0!(ST5».PI21II2tC0NST6»PI4HI4 )*HH*C0NST2 
OIAGI I )=01ril*DI 
GO TO 40 
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« » » 


c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


i'i 


•«0 


44 

«»• 


45 

46 

47 
40 

#M IT 
• «* 


49 


51 

52 

53 

OitK 

54 


nmH 

fit* 


IJ_5 liir“.,'COaC FUtiCTIOMS 
CIIMtIl- I , in 
SI-51MMHIIUI 
Ct-COl III PlHI I 
PIOiCI-HI/'SI 

bl I l-<CIIUiHI-PIUtSI)/PI2 
ui-i piar5w;i-otmiHi)/PX2 

oiACii i)-oiin«oi 

HUM MIX 
UIAIiltlHl >:0X 
Ellli'l l:0. 

IFI laur.riE .0 I ilNITE(16.41l 
FOPnAn/,' I E'» 

IHl lOUT.ME.O) lN'niTEn6.42t I Z.E( XI iI^l.NI 
fUPMATI IX,I5|E15.71 
Zri KVjr.ME.O) WPITE(l6i43t 
FOUMATI/,' X DIAG* I 

IMICUT.HE.OI WHITE! 16,44) ( I.OIAG! 1 1 ,X=1 ,NPl I 
FOHMATI 1X,15,E15.7) 

ALTCH 5PLIME EQUATIOMS 

IFIBI I I.EG.O. ) Ei 1 )=0. 

IFOI.Lq.il CO TO 46 
00 45 1=2 ,N 

IFiaC D.ME.O. I GO TO 45 
E( I-l 1=0. 

Cll)=0. 

CCJKTXIIUE 

IFICOtPl I.EO.O. I E(N)=0. 

IFIXUUT.NE.O) WRITE! 16.47) 

FORMAT!/,' I E'l 

XF(IOUT.ME.O) WRXTE!16.4d) ( X. Ei II .1=1 .Nl 
FORMAT! 1X,X5,E15.7) 

SOLVE SPLINE EQUATIONS (SEE AHLBER6, NZLSON ANQ WALSH I 

PK=OIAG! 1 I 

q( 1 ) = -E! 1 )/PK 

Ul ll-HI 1 l/PK 

00 49 KK=2,NP1 

PK=E!KK-1 l»Q!KK-l )♦0XA6!KK) 

q(KK)=-E!KKI/PK 

U!K.Mi!!B!KKl-E(KK-l)«U(KK-l I l/PK 
TAUOPlMPll=U!NPl) 

UO 51 L=1,N 
KK=MP1 -L 

rAUOP(KKI=Q(KK l•rAUDP!KK»l HUIKK I 

IF! IQUT.NE.OI WRITE! 16,52 I 

KORMATI/,' X TAUOP B' I 

XFUOUr.NE.ri I WH!rEll6,53) (X,rAUDPm.BiXM=l,NPl) 

FORMATI IX, 15, e 15. 7, E 15. 7 1 

PLOT EXPONENTIAL SPLINE 

IFI IPLOr.NE.O) CALL ESPL0T!X,F,NP1 ,B, TAUOP. P,H, ALPHA) 

IFIK.EO.OI GO TO 99 

IFI ICQUNr.GE.ITilAX) GO TO 2000 

UPDATE P-S 

IFlAtjiO 
DO dO 1=1, K 
IL = ILIIILI I ) 

iu=iLrr:u! 1 1 

TErn*-T/.UOPI ILI»a! XL) 

IFMEMP.GE.O. J GO TO 64 
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c Oi-rAL'uixo AT LRFr ii*.nD diqpoiht 
IFLAG i.1 

L.*,J,B4HsAMAXl( AOS(B( ILI) iDIACI IL MABS( TAUDP< lU ) l/ABSC TAUDPl 1L« I »l 
PriLnA=l./SCRT( LA^IEARvHI iui 
PI UOA=AMA'<UPTUOAtP( IL I ) 

P. 1LI = P( IU*QHeGA»( PTILOA-Pl ILM 

ILPUILt-i 

lUlll-IU-1 

ll’t iu:il .LT.ILPl » GO TO 70 
(JO J = ILPI,IU(U 

IF( r\UDP( J I .NE.O. I GO TO 66 
C »«* TAUCP-0 AT AM lUftRIOR POIMT 
If LAG-- 1 

PI J-l »=P( J-l )*EPS 
PI J l=PI J UEPS 
GO ro oB 

66 TEP.H = rAUDP(JI>.B(J» 

IF( TDIP.GT.O. ) GO TO 6fl 
C «*" B-rAUOP<0 AT AM TMTERIOH POIMT 
IFLAG=i 

LAM^!AR = AhAXl( ABSI B( J ) ) iDIAGI J MABSI TAUOP( J )) ) 
i/t C . *AMAX1 ( AB3I TAUOPI J-l> ) , A05( TAUOPI J*ll ) » » 

('riLDA=l ,/SqRTI LAIIBARfHI J-U ) 

PriL0A-Ai1AXHPTILDA,P(J-l I ) 

PI J-l )=P(J-1 »»OMEGA*»(PTILOA-P< J-l ) 1 
PTILDA=l ./SQRTI LAnEAR»HI J I ) 

PTILDA=AMAX1I PTILOA.PI J n 
PI J )=P( J MOIIEGAhl PTILDA-PI J ) 1 
6B CUMTIMUE 

70 TEMP = TAUDP( rU)«B( lU) 

IFITEMP.GE.O. ) GO TO 30 
C •«» BnAUDP<0 AT RIGHT HAMD ENDPOINT 
IFLAGM 

LAMUAR-AMAXI I ABSI Bl lU 11 ,OIAG( lU )t*ABS( TAUDP( lU 1 ) )/ABS( TAUOPI lUNl ) i 
PTILDA=l ./SQRTI LAHBAR«H( lUMl 1 1 
PmOA=AMAXi( PTILOA.PI lUMl) 1 

PI lum i=P( lum HonEGAfi ptilda-pi lum 1 1 
ao CUMTIMUE 
c «> N » 

C *** CHECK FOR EXTRANEOUS INFLECTION POINTS 
C »*»i* 

IFI IFLAG.Eq.O) GO TO 99 
C ' 

C »«• SCALE ABSCISSAE 
C AMa 

XMU=0. 

DO 93 1=1, N 

93 XMU-aHAXI(XNU,P(I)*HII)J 
ALPHAC=AMAX1(XMU/SIGNA,1. ) 

ALPHA=ALPHA»ALPHAC 

DO 9 <« 1 = 1 , N 

HIII=MI Il/ALPHAC 

94 BIIi=Q(II»*ALPHAC 
BIHPl 1=01 MPl (*ALPHAC 

IFI lOUr.ME.O) MRITEI 16,95) XMU, ALPHAC , ALPHA 

95 FORMATI/, 'XMU = ' ,E15. 7, 5X, 'ALPHAC = * ,E 15 . 7 , 5 X, 'ALPHA = ',E 15.71 
IFIXOUr.ME.O) WRITEI 16,96) 

96 FCJ.’IMATI/,’ I H B') 

IFI lour. ME. 0) URITE116.97) ( I ,H( I ) ,B( I ) ,1=1 ,N) 

97 FOPMATI 1X,I5,2E15. 7) 

IFlIOUr.ME.Ol l.'.RITEI 16,98) NP1,EINP1) 

96 FOR,-l‘,Tt 1X,I5,15X,E15.7) 

GO TO 34 
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C 

C 1.0 extraheous inflection points 

c *>•* 

99 IH( IC'JT.NE.O) UOITEt 16 .UOO ) 

IF( lOUr.NE.OI URITEC 16.100) ICCUNT 

lOQ FORNATC NO EXTRANEOUS INFLECTION POINTS: ICOUNT = M3) 

1000 FORNAn///,' ',///) 

GO TU 1000 

c »** 

C .*•••* MAXINUN NUMBER OF ITERATIONS EXCEEDED 
c •* » * 

2U00 irnOUT.NE.OI URlTEtUilOOOt 
IFI ICUT.NE.O) IIRITEt 16,2001 I 
£001 FORMAT)' MAXIMtJN NUMBER OF ITERATIONS EXCEEDED') 

3000 RETURN 
EtIQ 

C *•* 

c *** 

c »»t ESPLOT: B. J. MCCARTIN lO/SO 
C 

C )••• 

C n** FUNCTION: PLOTS THE EXPONENTIAL SPLINE 

C Ah# 

C *** DESCRIPTION OF CALLING ARGUMENTS: 

C ••• X = ABSCISSAE 


C 

AM# 

F 

5 

ORDINATES 

C 


MPl 

= 

NUMBER OF OROEREO PAIRS OF DATA 

C 


B 

S 

RIGHT HAND SIDE OF SPLINE EQUATIONS 

c 

«v ## 

TAUDP 

s 

SOLUTION OF SPLINE EQUATIONS 

c 


P 

= 

EXPONENTIAL SPLINE TENSION PARAMETERS 

c 


H 

= 

DELTA X 

c 

A A# 

ALPHA 

= 

SCALING PARAMETER 


C 

SUBROUTINE ESPLOT) X , F , NP 1 , B . TAUDP , P , H . ALPHA ) 

DIMENSION X) 1 ) ,F) 1 ) ,B) 1 ), TAUDP) 1) ,P) 1) ,H) 1 ) 

01MEt)S10N XP) 10000 ) .FP) 10000 1 .21 2 ) , IP.NUM) 2 ) .ZPLINE) 2 ) .ZPSYN) 2) . 
lIPlF(CR)2).ZTlTLE)60),XLBL15).YLDL)5),ZPSrRT(2) 

DATA BLA))K/' '✓ 

DATA XLBL/5** V 

DATA YLBL/5«»' •/ 

DATA ITlTLE/5»* * , '.EXPO' , 'NENT* , * lAL ','SPLX’*'NE '.SO**' '/ 

C »*» 

C aam INITIALIZATION 
C *>** 

iour=o 

N=NPl-I 
DO I n=l,2 
1 2)M>=BLANK 
SCALE=2./(X(NP1)-XI1)) 

C 

C SET UP ARRAYS 
C 

K=01 

IF) TOUT. NE. 0) URITE) 16.38) 

36 FORMAT) /.IX,' K XBAR TAUBAR TAUBP' ) 

00 45 1 = 1, N 
OX=ALP)IAi.H)I)/99. 

DX=DX/SCALE 
XX=Xl I )-QX 
00 40 J=l,100 
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K=K«l 

XP(KI=XX»OX 

IFUIMK).LT.X(Xn XP(K1=X(I) 

IF(XP(K).GT.X(I»n) XP(K)=X( 1*1) 

XX=XP(K) 

CAIL ESEVAUX.F.KPl ,B , TAUOP.P ,H ,XP( K ) .FPt K ) ,TAU8P, ALPHA » 
IFUOUr.He.O) IJ.9ITE< 10,39) K,XP(K),FP(K),TAUaP 
39 FCSMAT( IX, 15, 3E1S . 7 ) 

90 CUItTlhUE 

95 coriritiue 
00 so 1=1, MPl 
J=K»I 

XP( J)=X(I) 

50 FP<J)=F(I) 

H2=2 

ipsTwn 1 )=i 
IPSTRT( 2 l=K + l 
IPIIU.'K 1 )=K 
IP1/Jtl(2)=))Pl 
IPLIIf£( 1 )=9 
IPUHE(2)=-l 
IFSy.H I 1=0 
IPSiin 2 1 = 1 
IPDICRl 1 ) = 1 
IPI))CR<21 = 1 
C 

c «H*|* PLOT 
C 

CALL PLTEK(XP,FP,Z,NZ,IPSTRT,IPHUt1,IPLINE,IPSYH.IPINCR,ITITLE, 
IXLBL.YLBL.DUH) 

RETURN 

END 

C 

C 

c ESeVAL: B. J. MCCARTIN lO/flO 
C 

C *••*)( 

C «*»1* FUNCTION; EVALUATES THE EXPONENTIAL SPLINE 
C 

c DESCRIPTION OF CALLING ARGUMENTS; 

c >♦»# X = ABSCISSAE 

C F = ORDINATES 

C AM* NPl = NUMBER OF ORDERED PAIRS OF DATA 

C *** 8 = RIGHT HAND SIDE OF SPLINE EQUATIONS 

C #<•» TAUDP = SOLUTION OF SPLINE EQUATI0I4S 

C p s EXPONENTIAL SPLINE TENSION PARAMETERS 

C H = DELTA X 

C nit* XBAR = ABSCISSA OF EVALUATION 

C ,*•-*; TAUBAR = ORDINATE OF EVALUATION 

C «<•» TAUBP = DERIVATIVE OF EVALUATION 

C *•»<* ALPHA = SCALING PARAMETER 

C 

SUEROUTIHE ESEVAL ( X , F , NP 1 , B , TAUDP , P , H , XBAR , TAUBAR , TAUBP , ALPHA ) 
DIMENSION X( 1 ) ,F(l ) ,BU I , TAUDPl 1 ) ,P( 1) ,H( 1) 

C »»fi 

C INITIALIZATION 

C utm 

CONSTl=l./6. 

CONST2=l ./3. 

CONST 3= -7. /60. 

CONST9=31./2520. 

CCII3T5 = -1./15. 
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*!M23'sit:!:rrr.r 


COdOfo-Z./lSS. 

CCJi;or7=-7./'l95. 

CC!ISrfi:>.05 

CQNSr')=l./l20. 

MsNPl-l 

ETAS.07 

SCALE=2./(X<HPl)-XU>» 

C 

C i*-* OETERMIME IHTERVAL 
C 

00 10 JsliN 
r-j 

inXQAR.LT.Xl J^m 60 TO n 

10 C0N1IMSJE 
C 

C i*r* OETEWMINH TYPE OF FIT 
C *>n* 

11 VEr;p=u< I )«B( i*n 

1F( TEriP.NE.n. ) GO TO 20 
C FIT WITH LINEAR FUNCTION 

TAU3AR=( F( I )»( X( Ifl I-X8AR >*F( 1*1 )*•( XBAR-Xl 1 1 I )**ALPHA1 

TAUeAR=SCALE’»TAUDAR 

TAUDP=< FI 1*1 l-F( I ) )/IH< I )»ALPMAI 

TAUQP=SCALEi»TAU8P 

GO TO 30 

C Mi*» FIT WITH EXPONENTIAL SPLINE 
20 Xl=SCALE*»(X(I + n-XQAR)/ALPHA 
X2=SCALE»( XBAR-X( I ) 1/ALPHA 
PI2=P<I)»P(I> 

PIMI:Pm«H(Z) 

IF(PIHI.GT.ETAI GO TO 25 
C USE POWER SERIES REPRESENTATION 
Pr2HI2=PIIII«»PIHI 
PIAHi<*=PI2HI2-PI2HI2 
X12=X1-X1 
X22=X'2*X2 
Xl4=X12«XI2 
X2^=X22»X22 
0NCH12=l./(Hm«Hf in 
TCRM1 = 1 . ♦C0NST3MPI2HI2fC0NST4»PI<»HZ4 
rEHM2=CONSri«PI2-ONBHI2^CONST7«PI2«PI2HI2 
TERM3=< CQN5Ta»0NBHI2+C0N5T9>»PI2 l»PI2 
TAUeAR=IFm»»XnF(I»l 1*X2 »/H(n-CONSTl«Hm» 

1 (X I »TAUOP< I »•»» TERHl +TERN2MC12*TERI13*X14 U 
2X2»rAUOP(Itl l*M TERMUTEHM2*»X22*TERM3«»X2An 

TAUBP=< F( It n-F( 1 n/H( I >-CONSTl»»H< I M» 

II TAUOPI Itl )*(TERf11t3.J*TERN2»X22t5.*TERM3l»Xa4l- 

2 rAUDPI I KM TERM! »3. »TERM2»Xl2t5.ltTEHM3t*Xl9 ) !/ 

TAUBP=SCALE»TAUBP/ALRiA 

GO TO 30 

C *•* USE HYPERBOLIC FUNCTIONS 
25 OCNO(1=PI2»SINH(PIIJi*Hm) 

TAteAR=( TAUOPI I l«SI10l{ P( I )»X1 ItTAUDPI Itl )MSII^( P( I KIX2 ) l/DENOM 

I I I ( FI I » -TAUOPI I J/PI2 )«X1 1 ( FUtl l-TAUDPI Itl 1/PI2 K»X2 )/HI I ) 

TAUBPsi TAUOPI Itl K<CO£H( PI I )»X2J -TAUOPI I )**COSH( PI I K»X1 ) K<PI I )/OENOM 

Itl FI Itl ) -FI I Itl TAUOPI I l-TAUOPI Itl ) I/PIZI/HIIJ 
rAL'0P=5CALE»TAUDP/ALFHA 
30 CONTINUE 
RtrU.'iN 
END 
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C 

C 

C •«* DRIVER FOR PERIODIC PARAMETRIC EXPONENTIAL SPLINE PACKAGE; 

C •** B. J. NCCAMTIH lO/aO 

C 

Q 

DIMENSION XP( IOO).YPnoOI,S( 100),BX( 100)»BY( 100),TAUOPX( tOOI. 
1TAU0PY< 100»,PX( 100»,PY( 100),HX( 1001,HY( 100) 

CALL ERRSET(207,256.-lili0) 

CALL ERRSET(a08,256.-l.li0) 

CALL TKINIT 
REAO(IS)IO) NPl 
to FORMATtlS) 

NRITE( 16,20) NPl 
DO FCRMATI IX, ‘NPl = M3) 

URITEI 16,30) 

30 FORI1AT( ' XP YP' ) 

00 60 I = I,IIP1 

READ( IS, AO) XP<I),YP(I) 

AO FORflAT(2ElS.7) 

N»ITE< 16,50) XP(I),YP(I) 

SO F0RMATnX,DElS.7) 

60 CONTDIUE 

READ) 15,70) EPS 
70 F0RMAT(E15.7) 

MRITE( 16,60) EPS 
60 FOHMATI IX, 'EPS = ‘,£15.7) 

CALL PEREXPlXP,YP,NPl,EP5,3,8X,Br,TAU0PX,TAUDPY,PX,PY,HX»HY) 

RETURN 

END 

C mma 
C 

C PEREXP; B. J. MCCARTIN 10/60 

C 

C 

C FUNCTION: CONSTRUCTS THE PARAMETRIC EXPONENTIAL SPLINE 
C •*-» INTERPOLANT TO A SET OF POINTS IN THE PLANE 

C »»■* USING PERIODIC END CCN0ITI0N3 

C NOTE; ARC LENGTH IS USED AS THE PARAMETER 

C 

C !•**» REFERENCE; B. J. MCCARTIN, NUMERICAL COMPUTATION OF 
C <*** EXPONENTIAL SPLINES, COURANT MATHEMATICS 

C AMO COMPUTING LABORATORY, OCTOBER 1960 

C 

C -**•» DESCRIPTION OF CALLING ARGUMENTS: 

C 

c 

C 

c 

c »,•« 

c 

c • 

c <*<*<> 

C 
c 
c 

C o 

c <•»* 
c « •» 


XP e ABSCISSAE 

YP s ORDINATES 

NPl = NUMBER OF ORDERED TRIPLETS OF DATA 

EPS = TOLERANCE FOR STOPPING CRITERIA IN 

ARC LENGTH ITERATION 
S ARC LENGTH 

BX = RIGHT HANO SIDE OF 
BY = RIGHT HANO SIDE OF 
TAuJPX = SOLUTION OF SPLINE 
TAUDPY = SOLUTION OF SPLINE 
PX = EXPONENTIAL SPLINE 

PY = EXPONENTIAL SPLINE 

HX = DELTA S FOR X( 3 ) 

HY = DELTA S FOR Y(S» 


SPLINE EQUATIONS FOR X(3) 
SPLINE EQUATIONS FOR Y(S) 
EQUATIONS FOR X(S) 

EQUATIONS FOR YIS) 

TENSION PARAMETERS FOR X(S) 
TEr;SIQN PARAMETERS FOR Y(S) 
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c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


3U3R0UTIME PEBfcA»M>.P.YP,HPl ,CFS,S,BX,Bir ,rAUOPX,T.\UDPy,PX,PY.HXrHr> 

oiticijsioti :<p< iiitJM n,s« n.oxi i » iBy« n.TAuapxt h.tauopyc n. 
ipx< n.pr< 1 i,MX( i ) ,iiYi n.sNi loot 

,« lit 

*•1. CCl.lPUrE CtlQRO LEMotH 

an* 

S( 1 ):0. 

00 to 1=2. NPl 

10 SI I i = Sl I-l l♦S0RT( (XPm-XPI I-l 1 t»*»2H YPm-YP<I-n>'*''CI 
IS coiiriituE 

aa4 

FIT X vs. ABC LEHGTH 

• •ti 

CALL EXPSPLIS.XP.MPI .BX.TAUOPX.PX.IlX.ALPHAX) 
a 

•t* FIT Y VS. ARC LEHGTH 

ah 4 

CALL EXP5PLI S. YP.HPl .BY.TAUOPY .PY.HY.ALPHAY 1 

KH* 

a»a plot Y vs. X 

a a 4 

CALL PLTFITlS,XP.YP,MPl,aX.BY,TAUOPX.TAUOPY,PX,PY,HX,HYi 
lALPIIAX.ALPHAY) 

» H 4 

• a 4 RECALCULATE ARC LENGTH 

a « 4 

CALL ARCLEN(S,HPl,BX,BY,TAUOPX,TAUOPY,PX,PY.HX,HY,ALPHAX,ALPHAY. 
ISN.XP.YPt 

-a- determine SIGNFICANCE of relative CHANGE IN ARC LENGTH 

4a» 

DO 30 1=2, NPl 

IFIABSI(SN(II-S(I))/(S(I)-SII-im.6E.EPS) GO TO 31 

30 CONTINUE 
CO TO 35 

31 00 32 1=2. NPl 

32 SC!l=SN(:t 
GO TO 15 

35 CONTINUE 
RETURN 
ENO 


•4 aBCLEN: a. J. HCCARTIN 10/60 


FUNCTION; APPROXIMATE ARC LENGTH INTEGRAL USING 
>4 CQHPOUNO SIMPSON'S RULE 


••• OESCRIPTIOH OF CALLING ARGUMENTS: 


4 

■ 1 

4 

4 


a 


a 

a 


a a 


a 4 


S s INPUT ARC LENGTH 

NPl X number of oroered triplets of data 

BX = RIGHT HAND SIDE OF SPLINE EQUATIONS FOR X(S) 

BY = RIGHT HAND SIDE OF SPLINE EQUATIONS FOR Y(S> 
TAUOPX 3 SOLUTION OF SPLINE EQUATIONS FOR X(S) 

TAUOPY 3 SOLUTION OF SPLINE EQUATIONS FOR T<S> 

PX = EXPONENTIAL SPLINE TENSION PARAMETERS FOR XI S) 
PY 3 EXPONENTIAL SPLINE TENSION PARAMETERS FOR YI8) 
HX = DELTA S XIS) 

HY 3 DELIA S FOR YISI 

ALPMAX 3 SCAl It.G PARAMETER FOR X(S» 

aLPHAY 3 scaling parameter for YIS) 

EN 3 OUTPUT ARC LENGYH 

XP 3 ADSCISSAE 

(P = ODUINATtS 
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!iUD<ourn;E arclchi s,nF't .ex.By.TAUDPX.TAunpr.PX.Pf , hx,hy • 
lAtPlUX.ALFHAt ,SM,XP,^P> 

OXhtllSIOtl S( n ,bXt 1 I l,TAU0PX( 1 I ,TAUDPY< I ) iPX( I ) ,PYI I ) , 

im;<( 1 i,iiy( I i.sio u.fi m.xpi n>YP( n 

Q « » M 

C CALCULATE ARC LENOrH 

C itwii 

SIK 1 1 = 0. 

00 10 K-2.HPI 
DS-SIK I-SIK-I ) 

H:US.‘10. 

00 5 L=l.n 

CALL ESEVAL(S,XP,hPl ,BX,TAUDPX,PX,HX,St ,X1 ,OERIVX.ALPHAX) 

CALL ESEVALl S, YP.NPl ,BY iTAlJOPY »PY ,HY .SI , Yl .OERIVY .ALPHAY I 
5 F( L»-Sr,:}T(DERIVX-"2tDERIVV-"<C| 

10 CMIK » = 'j:UK-l IHFl U»A.«<F( 2 NFU I ♦Fib )4F(BI*F( ion 
U2.*rlF( 3) + F<5l»F( 7ltF< 9)»*F( in )»H/3. 

RETURN 

EHI) 

C •>*» 

c •** 

C PLTFIT: B. J. MCCARTIN 9/BO 
C 

C • I. A 

C •#*. FUttCTIOM: PLOTS THE PAR iMETHIC EXPONENTIAL SPLINE 
C •*<» 

c *'»•> DESCRIPTION OF CALLING i'.RGUIIENTS: 

C **•» S = ARC LENGTH 

C XP = ABSCISSAE 

C .t-i* YP « ORDINATES 

C NPl = NUriDER OF ORDERED TRIPLETS OF DATA 

C *•* DX = RIGHT HAND SIDE OF SPLINE EQUATIONS FOR XI S) 

C BY = RIGHT HAND SIDE OF SPLINE EQUATIONS FOR YIS) 

C »«<* TAUOPX = SOLUTION OF SPLINE EQUATIONS FOR XI SI 

C <•<•* TAUDPY = SOLUTION OF SPLINE EQUATIONS FOR YIS I 

C *** PX = EXPONENTIAL SPLItlE TENSION PARAMETERS FOR XI S) 

C PY = EXPONENTIAL SPLINE TENSION PARAMETERS FOR YIS) 

C .»-•* HX = DELTA S FOR XI S) 

C **<♦ HV = DELTA 3 ^0R Y(S) • 

C ALPHAX 3 SCALING PARAMETER FOR XI 3) 

C ALPHAY = SCALING PARAMETER FOR YIS) 

SUBROUTINE PLTFITIS.XP.YP.NPl.BX.BY, TAUD PX , TAUDPY , PX . P Y . HX . H Y . 
lALPHAX, ALPHAY ) 

DIMENSION SI n.XPI 1 I.YPI ll.BXI D.BYI 1 ),TAUOPXI D.TAUOPYI 1). 
IPX! n.PYi n.Hxi n.HYi d.xplti hoooi.yplti nooo), 

2IPSTRTI 2 I , IPNUMI 2 ) , IPSYMI 2 ) .IPINCRI 2 ) .TITLE! 60 ) , 

3XLBLI 5 1 , YLBLI 5 ) , IPLIHEI 2 ) ,ZI 2 ) 

DATA XLBL/S.'* '/ 

DATA YLBL/Si*' •/ 

DATA BLANK/' '/ 

DATA TITLE/^*' ' , ’ PARA* , 'METR ' , ' IC E' . 'XPON' . 'ENTI' , 

I'AL S'.'PLIN'.'E ',AB<*' •/ 

Zl 1 l=BLANK 
Z(2)=BLANK 
NZ=2 

IPSTRT! 1 |sl 

IPSTRT! 2 )=NPU1 

IPNTJM! 1 I=NP1 

IPNU:1(2J = !MP1-) )*U00+1 

IPLIMEl 1 ) = -l 

IPLINEI03A 

IPSTfK 11 = 1 

IPSMH 2 ) = 0 

IPINCR! I 1=) 

II'INCR(2I = 1 
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I- 


UO 10 l-t.NPl 
XPLH Dsc^’l 1 1 
iHLTt I isypi n 
‘ 10 CONritlllE 

UPMlPl-l 
DO to K-l ,|IP 
00=S(K*l )-S(K 1 
H=OS/lOO. 

DO :s L-l.lOO 
Sl:S(KIH L>1 l«H 

CALL fCEVALlS.XP.HPl ,DX ,TAU0PX ,PX iHX ,S» ,XPLT(t11 .OEBXVX.ALPHAXl 
CALL ESEVALIS,yp,HPl,ay,TALIOPyiPy,Hy,Sl, yPLTiriliOEHIVr.ALPlIAV) 
25 (1-11*1 

20 cciirniUE 

XPLKMIsXPtHPl » 

ypLriM)syp(Ni'i > 

00 io iM.n 

30 COUriMUE 

CALL PLTcK(XPLr.yPLT.Z.K2iIPSTRT,IPNUM,IPLINE, 
llP'jm, IPItICR, TITLE, XLBL.yLBL.DUM) 

RCrURd 

EUO 

C mn# 

C >* *<* 

c «•*- EXPSPLi B. J. nCCARTIN lO/BO 
c *• •*• 
c ****** 

C <*K<* FUNCTION: CONSTRUCTS THE INTERPOLATORY EXPONENTIAL SPLINE 
C «•** TO A SET OF POINTS IN THE PLANE WITH MOMOTONICALLY 

C **••• INCREASING ABSCISSAE USING PERIODIC ENO CONDITIONS 

C « <n* 

C ■*•• REFERENCE: 3. J. NCCARTIN, NUMERICAL COMPUTAriON OF 
C .*<-* EXPONENTIAL SPLINES, COURANT HATHEMATICS 

C *«<•■* AND COMPUTING LABORATORY, OCTOBER 1900 


c 






c 

ft W IV 

DESCRIPTION 

OF CALLING ARGUMENTS 

J 

c 


X 

s 

ABSCISSAE 


c 

I*## 

F 

s 

ORDINATES 


c 


NPl 

s 

MUliaER CF CPDtWEQ 

PAIRS OF DATA 

c 

lllMV 

B 

s 

RIGHT HAND SIDE OF 

SPLINE EOUATIONS 

c 


TAUDP 


SOLUTION OF SPLINE 

EQUATIONS 

c 


P 

= 

exponential spline 

TENSION PARAF1ETER3 

c 

IVPt 1* 

■ H 

- 

DELTA X 


c 


ALPHA 


SCALING PARAMETER 


c 







SUCROUriME LXPSPL(X,F,NPi,B,TAUDP,P,H, ALPHA) 
OIMENSIUN X( n ,F( I > ,B( I , TAUOP( 1 ) ,P( I ) ,H< 1) 
DIMENSION E( 100I,DIAG( 100),ILIML( 1Q0),ILIMU( 100), 
101 100 I, SI 100 I, T( 100),U( 100 I, V( 100) 

REAL LAI‘£AR 

C •<••* 

C t**** INITIALIZATION 
C 

IOUT=l 
IPLOT=0 
CON5Tl = l./'5, 

CW|3r2 = l./3. 

CUIIsrj=-7./60. 

C0!i'jT^ = 31 2220. 
cotisrs--! ,/15. 

CCIISTosJ./IlS. 

N=NP1 -1 
NNI -ll-l 
f.PJM .E-6 
I’CnO',:!. 

t r A : . 0 ; 

i rO‘1A:100 . 
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AI.PH\=t , 
niir*,-5 

s:Ai.e=r,,/(X(NP» »->( i n 
imCUT.NE.O) URITCIl6,2» UMAX 

2 FO"M\Tl/.' UMAX = MSI 

IFI lUJr.ME.O > URUEUb,^) EPS ,C!lCGA . ETA , SIGMA 

3 K'"MATI/»* EPS = • ,ei5. 7,5X. 'OIILGA = ' »E15. 7»5X, 'ETA = '»El5,7i5Xi 
I'StCMA s ' ,E15.7I 

ICCVJ1IT=0 

OU H l=liN 

M(I) = X(UU-X(I» 

^ HI I |:SCAL£«M( 1 1 
C.O S Ul.M 
b F( I ):0, 

IM iUUr.NE.UI URITEI 16,6) 

6 rORM'.TI/, ' I H' I 

Il'l lOUT.ME.O ) WRrTEll6,7) ( I,H( I ) ,1 = 1 ,N) 

7 FORMAT! IX,I5,E15.7) 

C • » 

c •»>♦ define B'S 
c • <* * 

01 1 » = l FI2 )-F( 1 1 )/'HI I >-(FlNPl l-F(N) IXH(N) 

IFlN.EQ.l I GO TO 11 
DO 10 1=2, N 

10 fi(ii=iF(un-F(i))XHm-(F(i)"F(i-inxH(i-n 

11 eiNPi 1=01 1 1 

in IQUr.llE.O ) MRXTE(16,12) 

12 FCRMATIX, ' 1 O' I 

IFI lOUT.NE.O ) NRUE(16,13) ( I ,B( I ) , 1= I ,NP1 1 
15 FORMAT! 1X,I5,E15.7) 

C " 1* 

C «»« DETERMINE WHICH INTERVALS SHOULD BE FIT WITH 
C LING SEGMENTS AMD WHICH INTERVALS SHOULD BE 
C FIT WITH EXPONENTIAL SPLINES 

C K = HUliBLR OF EXPONENTIAL SPLINE INTERVALS 

C ■*«* ILII1HI) = LEFT HAND ENDPOINT OF UH SPLINE INTERVAL 

C ILIMUIII = RIGHT HAND ENDPOINT OF ITH SPLINE INTERVAL 

C »»» 

K=0 

IL=1 

CONTINUE 

00 20 I=XL,N 

TEMRsBlIlMBim) 

IFI TEMP.EO.O. ) GO TO 20 
K=Kn 

ILIML(K)=I 
DO 16 J=I,N 
TEMP=BI Jl**BIJ*l ) 

IFI TEMP. NE.O. ) GO TO 15 

IL1MUIK)=J 

GO TO 29 

15 IFU.NE.N) GO TO 16 
ILIMUIKI=N 

CO TO 30 

16 CONTINUE 
20 CONTINUE 

GO TO 30 

29 IL=J 

00 TO lA 

30 CONTINUE 

IMICUr.NE.O) WRITEI16,31) K 

31 FiniATI/, ' K = • ,13) 

IF IK. £0,0) GO TO 5A 

IFI icur. NE.O ) WRITEI 16,32) 

32 FOINIATI IX, • I ILINL ILIMU' ) 

IFI lour. NE.O ) WRUEI16,33) 1 1, ILIMLI I ) .ILIMUl I ) ,1 = 1 ,K ) 

33 FOliNAn IS, 15, IX, 15) 

c ♦ ^ • 

C o«- SET UP SPLINE EQUATIONS 
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c » < • 

3-; OIM1=0. 

ICCJ!!r-ICQIJIIT»l 
iM i(!ur.tifc‘,oi k,7irer i6,icoo) 

IMrcur.NE.OI HRirEUt),3o) ICOUNT 

36 ^0:.'^AT I U, 'ICOUNT = MSI 
ITdOUr.KE.OI U'RirC( 16, 3n 

37 F(,’’rr,TI/,' IP M'l 

irUOUr.ME.O) W1TEI16,33) (I,Pa),H(I),I=I»N) 

3Q lOViVTi IX.Iil.ElS. 7,E15.7I 
00 ^o r-i,ti 
P1»P(U 
HIMK I I 
PIHI=(>I‘HI 
PU-f’I'PI 

riMPIllI.GT.ETA) GO TO 39 

c o-* uj:c fouer serils refrescntatioh 

Pl':ilI2:PK*>HIH(r 

PIAHl4:PICHIC«PI2HI2 

c( n = ( 1 . tCOHST3'-Pt2HI2*COHSTA><PIAHI9)»HIMCONSTI 
DI-( 1 . tCOI)ST5-P12HI2»CONST6wPI<,HI'‘.)t‘III*tCONST2 
OIAOl I l=Dim *01 
CO TO 60 

C •** USE HIFESSOLIC FUNCTIONS 
39 0N0NII=1./HI 
5I = SIIIII( PlHI » 

CI-COSH< PIHI ) 

P1DT5I=PI/SI 

E( I ) = l ONSrHI-PIBYSI )/PlZ 
0I=( PIBYSI^CI-ONBYHI )/PI2 
OTAG( n=OimfOI 

60 Dirii-or 

0IAG( 1 l = OIAG( 1 l«OZ 

IF( laUT.NE.O) NRITE( 16,91 1 

61 FORNAK/, • I E' ) 

1F( lOUT.NE.O) NRITE(16.621 ( I , Ell ) . I=l ,N) 

62 FCKNATi 1X,15,E15.7I 

IF( lUUT.NE.Ol WRITE(16,63» 

63 FORIIATI/, ' I DIAG' ) 

XFdOUr.NE.Ol WniTE(U,66) 1 1 ,DIAG( I ) , 1=1 ,N» 

66 FORNATC 1X,15,EI5.7) 

C 

C *<■- ALTER SPLINE EOUATIONS 
C •*,»* 

IFIBl 1 l.EQ.O. ) E( 1 )=0. 

IFIBl 1 l.EQ.O. ) E(N)=0. 

IF(N.Eq.l ) GO TO 66 
00 65 1=2, N 

IFIBl 1 1 .NE.O. ) GO TO 65 
£( I-l )=0. 

E(I)=0. 

65 CONTINUE 

66 CONTINUE 

IFdOIJT.NE.O) WRITE(16,67) 
h 7 FORMAn/, • I Ed 

IFdOUT.NE.O) NRITEd6,6ai d,Ed),I=l,N) 

63 FORMAT! lX,I5iE15.71 
C 

C SOLVE SPLINE EQUATIONS (SEE AHLBERG, HILSON ANO WALSH I 
C • 
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rh-.3[,\ct 1 1 
•Jt l I--EI l l/PK 
Ul 1 I'-UI 1 1.TK 
I i--E( II I F'K 
uo hK-:. iiini 
PI :MPN-1 l»giKK-l )*D1AC(KKI 
'Kl-K l = •EI^K l/HK 

UUh lilbIKK l-t(KK-l )*UtKK-l I l/PK 
•,9 MI'H Is-EIKK-IMSIKK-I l/PK 
nt)l-l. 

Vt 111=0. 

UO DO L = liMril 
-L 

TlKK)=QIKK)PTlKK*l US(KKI 

50 V(KK) = Q(KK)**V(KKM UUIKKI 

rAUUP(MI = (Bnn-ElHMV( 1 I I )/IE(NI<*T( lltE(N-l )»T(N-l I 

1 rDIAGI M I ) 

UO 51 L=l ,NII1 
hki|J-L 

51 I AUDPt KK ) =q< KK )«TAUDP( KK* I l + SI KK l**TAUDP( H I ♦Uf KK » 

TAUUPUIPI l = rAUOP( I I 

IF( lour. HE. 0 I WIITEC 16.521 

52 HOHIIAri/.’ I TAUOP B' I 

IMIOUr.ME.O) URITEI 16,531 ( I ,TAUOP( I ) ,B( 1 1 . Isl ,NPll 

53 hOHIIATI 1X,I5,E15./,E15.71 

C <1 A 

C «•«» PLOT fXPOIIEMTIAL SPLINE 
C • ' * r, 

5‘* IFI IPLOT.NE.O) CALL ESPLOTl X, F ,NP1 ,8,TAUDP , P,H , ALPHA ) 

IFIK.EQ.O) GO TO 99 

1F( ICOUlir.GE.ITMAX) GO TO 2000 

C « • » 

C •** UPUaTE P'S 

c • » « 

IFLAG=0 

ou ao 1=1 ,K 

IL = ILIML( I 1 
IU--ILlltU( I ) 

T£n!>=TAUUP( IU«B( lU 
IFI TEMP.Gr.O, ) GO TO 6A 
IFI rAUDPI ILI.EO.O, .AND. IL.NE. n GO VO bk 
IFI fAUDPI ID. NE.O. I GO TO 60 
C <•** rAUUP=0 AT LEFT HAND ENDPOINT I FIRST POINT) 

IF LAG=l 
PlN)=PINIf£PS 
PI 1 l = P< 1 HEPS 
CO TO 69 

60 IFI IL.tlE . I ) 60 TO 62 

C B^rAUOP^O AT LEFT HAND ENDPOINT I FIRST POINT) 

TFi /.r, = i 

LAI1DAR = AHAX1( ABSIBI I ) 1 ,OIAG( I )»ABS( TAUOPC 1)1) 

1/12. »ANAXl I AOSI TAUDPI N) ) . AB3( TAU0P( 2 ) ) I) 

priLDA=i ./sn? r; landar*hihi ) 

priLDA=At1AXll ITILOA.PIN) I 
PlN)=PlN)+OriEGAi<(PTILDA-PCN) ) 

PriLDA-l./§ORT( LANDAR*HI D) 

PrUDA = AMA,<l(PTILDA,PI 1 I I 
pi 1 ) =PI 1 I HJMEGA**I PTILDA-PI 1 1 I 
00 ro 64 

C »<•<♦ b'lAUUP'.O AT LEFT HAND ENDPOINT (OTHER THAN FIRST POINT I 
62 IFLA0=1 

LAMLAR-AMAXK ABSIBI ID ) .DIAGI ID«ABS( TAUDPI ID ) )/ABS( TAUDPI IL*1) I 
prui)A=i ,/5(iHri lamdar'.hi id) 

PriLOA-AFlAXll PriLOA.PI ID I 
hi ID -PI ILI.OHEGAX PTILDA-PI ID I 
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e. 






6'* lLPl=ILfl 
IUMl-lU-1 

IP( rUMl.LT.ILPl J GO TO 70 
UO 06 J=rLPl,lUMl 
IF( TAUOPI J>,Me.O. ) GO TO 66 
C TAU0?=0 AT .AN INTERIOR POINT 
IFUG=l 

f'( j-1 )=p( j-n»EPs 
P< J l=P( J l+EPS 
GO TO 60 

66 Tenp-uunpuit-s* J) 

If ( refiP.GT.O. ) GO TO 68 
C O'TALOPs'O AT AN INTERIOR POINT 
IFLAGsi 

LtniiiRsAHAXH ABS(B< J I > .OIAG( J »<*ABS( TAUOP( J »> ) 
l/( : .•AtlAXn AB3( TAUOP( J-U ) , AB3( TAUOP( JU ) ) I ) 

P TILDAS I ./SQRT( LAf!3AR»H( J-l) I 
PriUOAiAt1AXl(PriLOA,P( J-1 ) ) 

P( J - 1 1 = P< J-l )*OMEGA<*( PTILDA-P( J-I ) ) 

PTILOA=l ./SQRTl LA^;EAR«H( J > 1 

ptiloa=amaxkptilda,p( jn 
P( J)=P( J HONeGA'UPTUOA-Pl J» ) 

68 CONTINUE 

70 TEriPsTAUDPI lUMBl lU) 

IFl TEMP.GT.O. ) GO TO 80 
IF(TAUOP(IU(.Cq.O. .ANO.IU.NE.N) GO TO 80 
IFl TAU'JPl lUl.NE.O. ) GO TO 75 
C TAU0P=0 AT RIGHT HANO ENDPOINT (LAST POINT) 

IF LAGS I 

PIN-l l=P(N-l )>EPS 
P(Nl=P(N) + EP3 
GO TO 80 

75 IPdU.NE.NI GO TO 76 

C »*>* DoTAUDPcO AT RIGHT HAND ENDPOINT (LAST POINT) 

IFLA6=1 

LAN3ARS ANAXI ( ABS( BIN)) .OIAGI N ) *»ABS( TAUOPI N ) > ) 
l/l l.>»AnAXllABSITAUQP(N-I )),AaS(7AU0P(2)))) 

PriLOAsl./SORTI LAMBARitHIN-I ) ) 

PTILOA = ANAXl I PTILOA.PI N-1) ) 

PI N-1 |sP(N-l )+OnEGA«l PTILOA-PIN-l ) ) 

HTILDA=1 ./3WHTI LAnbAHi*mNJ I 
PTILDA=At1AXl(PTIL0A.PIN) ) 

PIN) =P( N ) tOMEGA'AI PT1LDA-P( N ) ) 

GO TO 80 

C < * B»tTAUDP<0 AT RIGHT HAND ENDPOINT (OTHER THAN UST POINT) 

76 IFLAG=l 

LAHDAR =AMAX1 1 ABS I B( lU ) ) lOIAGI lU )*»ABS( TAUOPI lU ) ) )/AB3( TAUOPC lUttl ) ) 
PTILOA=l ,/SGRT( LAMBAR«tH( lUMl ) ) 

PriLOA=AMAXl( PTILOA.PI lUMl ) ) 

PI iu;u j=p( rum )tOfiEGA«( ptiloa-p( lum ) i 

80 CONTINUE 

c 

C •!*» CHECK FOR EXTRANEOUS INFLECTION POINTS 
C 6MW 

IFl IFLAG.EQ.O) CO TO V9 

C s •« 

C »>♦» SCALE ABSCISSAE 

C **■* 

XMU=0, 

00 93 1=1 ,N 

93 XMU=AI!AXl(XT1U,Pm*HII)) 
alphac=ana;<1(Xhu/gicha. 1 . ) 

ALFHA=ALPIIA«ALPHAC 
DO 99 1 = 1, N 
III I )=N( I )/ALPHAC 
99 61 I l-BI I )«.’.LPHAC 
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BKIMl |5o(NFn«ALPIIAC 

IHXOUr.tiE.Ol W.1ITE( 16.95 1 XMU.ALFIIAC .ALPHA 

95 FOr'tlATl/, 'XnU = ’ ,E15.7.5X,'ALPHAC = * , E15. 7.5X, ' ALPHA = ’.E15.7) 
IF( lOUr.ME.O I WHITEl 16,96) 

96 FCPDATi/. * I H B' ) 

IF( ICUr.flE.O I WRITE( 16,97'/ ( I ,H( I ) ,B(I) , I = l ,N I 

97 FCipllAK IX, I5.CE15, 71 

IFl lOur.HE.O ) WPXTEI 16,98) HPl,B)HPl) 

93 IO;.’IIAT( IX,I5,15X.E15.7) 

GO 10 
C 

C MQ eXlHAIIEOUS IhFLECTIOM POINTS 

c • » » 

99 IFl IOUT.))E.O) UPITE( 16,1000 ) 

IF(IOUr.NE.O) l-!RirEa6, 100 ) ICOUMT 
100 FOIHUn • )(0 EXTRANEOUS INFLECTION POINTS: ICOUNT = *,I3) 

1000 roPHAT)///.' - SX//) 

GO TO 3000 

c » 

C MAXIMUM NUMBER Of ITERATIONS EXCEEDED 

C * n *♦ 

COOO 1F( lOUr.NE.O) NRITE( 16 , 1000 ) 

IF( lOUT.NE.O) WRITE! 16,2001 ) 

2001 FORMA Tt • MAXIMUM NUMBER OF ITERATIONS EXCEEDED') 

2000 RETURN 
E)IO 

c •• • •♦ 
c ***** 

c n*M ESPLOT: a. J, MCCARTIN 10/80 
C »»» 

C » 

C FUNCTION: PLOTS THE EXPONENTIAL SPLINE 

C »** 

C «»«r DESCRIPTION OF CALLING ARGUMENTS: 

C X = ABSCISSAE 

C F = ORDINATES 

C ,»<** NPl = NUMBER OF ORDERED PAIRS OF DATA 

C B = RIGHT HAND SIDE OF SPLINE EQUATIONS 

C •>"» TAUDP = SOLUTION OF SPLINE EQUATIONS 

C *»<* P a EXPONENTIAL SPLINE TENSION PARAMETERS 

C H = DELTA X 

C •••• ALPHA a SCALING PARAMETER 

C 

SUBROUTINE ESPLOT! X ,F ,NP1 ,B,TAUDP,P,H .ALPHA ) 

DIMENSION X! D.Fl 1 ),B! 1 I. TAUDP! 1 ),P! I ),H! 1 ) 

DIMENSION XP! 10000 ) ,FPI 10000 ) ,Z1 2 5 .IPNUMI 2 ) , IPLINE! 2 ) ,IPSYM( 2 ) , 

1 IPINCRI 2 ) , ITITLEI 60 ) ,XLBL( 5 ) . YLBL! 5 ) ,IP3TRT( 2 ) 

DATA BLANK/' '/ 

DATA XLBL/5»' '/ 

DATA YLBL/5»' '/ 

DATA ITITLE/5*' ' , 'EXPO' , 'NENT' , 'lAL ' , 'SPLI' , 'NE ',50<*' '/ 

C 

C INITIALIZATION 

C 

IOUT=0 
N=NP1-1 
DO 1 M-1,2 
1 Z!M)=BLANK 
SCALENE. /(XI NPl )-X( 1 ) ) 

C »»• 

C SET UP ARRAYS 

c 

K-0 

IFIICUT.NE.O) WRITE!16,38) 

38 FORMAT!/, IX, ■ K XDAR TAUBAR TAUBP' ) 
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00 i:l .N 

0.< = ALrilA»ll< 11/99. 

0.;=t) (/CiCA'.E 
XX^/I II -OX 
DO sO J=1 1 100 
K=l' « I 

>,(Mf KX<*OX 

If( :>.?IKI,LT.X(in XP(K)=X(I) 

IHM'tKI.GT.Xd^ni XP(KI=XU+l) 

PI K I 

CALL ECCVAL(X,F,HPl .B . TAUOP, P ,H , Xp( K ) i FP( K >. TAUBP .ALPHA 1 
in IC’jr .Nf .0 1 H9irE(lo,39) K.XPtK),FP(K).TAUaP 
39 KIPJIAH iy,15,3C15.7l 
(.0 COliritllJE 
AS CO'iriHLE 

DO m ,HP1 
J-Kd 

,-:pi j i-a( I ) 

50 FP( J l=F( r ) 

HZ = C 

IPOrPTl 1 )M 
IPSTRn Z )=K»1 
iPiiuminK 
iPiiuruc )=NPl 

IPLlllEI I 1=9 
IPLItlEl Z |:-l 

i?5inii)=o 
IPCirii c 1 = 1 
iPiricRc 1 ) = j 
IPI::CR< 2 1 = 1 

plot 

»•« 

CALL PLTEKIXP.FP.Z.NZ.IPSTRT.IPNUri.IPLIME.IPSYM.IPIHCR.ITITLE. 
IXLQL.TLBL.UUH) 

RETURH 

EHO 


c 





c 

• ktf 




c 


ESEVAL: B. 

J. 

MCCARTIN 10/80 

c 

M « l» 




c 

•m * 




c 

ftN« 

FUJCTIOH: EVALUATES THE EXPOMENTIAL SPLINE 

c 





c 

rt « M 

DESCRIPTION 

OF CALLING ARGUMENTS: 

c 

ilii* 

X 

= 

ABSCISSAE 

c 


F 

= 

ORDINATES 

c 

ft • * 

NPl 

- 

HUMQER OF ORDERED PAIRS OF DATA 

c 

fVft «r 

8 

= 

RIGHT HAND SIDE OF SPLINE EQUATIONS 

c 

* 

TAL'OP 

= 

SOLUTION OF SPLINE EQUATIONS 

c 

AA4 

P 

= 

EXPONENTIAL SPLINE TENSION PARAMETERS 

c 

4 ft 4 

H 

= 

DELTA X . 

c 

ft ft tCi 

XBAR 

= 

ABSCISSA OF EVALUATION 

c 

4 ft » 

TAUBAR 

- 

OROIHATE OF EVALUATION 

c 

• ft # 

IAL'EP 


DERIVATIVE OF EVALUATION 

c 

ft ft ft 

ALPHA 

= 

SCALING parameter 

c 

4 ft ft 





SUCROUritlE CSEVALI X.F ,NP1 ,8 , TAUOP , P ,H , X0AR .TAUBAH .TAUBP. ALPHA ) 
DIMCnSION XI I ) .FU ) ,B( n , TAUUPI I 1 ,P( 11 ,H( 1) 

c •• • 

C INITIALI/ATION 

C • 

COIISTl^l ..'6 . 

C0:.‘5fC--l ,/3. 

CC',CT3=-7./ 60. 

C0*litA = 51 ./2520 . 


CUMl,r5:-l ./IS. 

CCIIS16i:./315. 

C0U3rr--7./l95. 

CO!!STtt=-.05 
C0M3r9=l ./' 120 . 
rl=HPl-l 
ETA=.07 

SCALE = C./(X(NPi l-X( 1 ) > 

C • ■ 4 

C *** OETEHrtIHE INTERVAL 

C « w • 

DO 10 J=liN 
I=J 

If('XBAR.LT.X<J*m GO TO H 

10 CONTINUE 
C nio 

C DETERMINE TTPE OF FIT 

C 4 4 « 

11 TEMP-6( I )«B( Itl ) 

IF( TcMP.NE.O. ) GO TO CO 
C »»<♦ FIT WITH LINEAR FUNCTION 

TAUBAR = ( F( I )4( X( 1*1 I-X6AR ) + F( lU )«(XBAR-X( I )) )/(H( I )»ALPHA) 

TAUDAR=SCALE»TAUQA9 

TAU0P = (F(I»1 t-Fl in/(H(I>t*ALPHA) 

TAimP=SCALE4TAUBP 
GO TO 30 

C »»* FIT WITH EXPONENTIAL SPLINE 
20 XI -SCALE »( X( 1 + 1 )-XBAR (/ALPHA 
XC=SCALE»( XBAR-Xl I ) (/ALPHA 
PI2=P(I)*P(I) 

PIHI=P(I(4H(I( 

IF(PIHX.GT.ETA( GO TO 25 
C - 4 '* USE POWER SERIES REPRESENTATION 
PI2HI2=PIHI'»PIHr 
PIAHI4=PI2HI2'tPI2HI2 
X12:X1«X1 

/22 = X24,<2 

X1<; = X124X12 
X2A = X2C»>:C2 
0IIBHIC=1 ./1H( K*tH(I( ( 

T£RM1 = 1 . ♦C0NSTI«PI2HI2+C0NST'!(4PIAH14 
TERM2=C0NSTli«PI2-0,NBHI2»C0NST7»PI2i*PI2HI2 
TERM3 = ( CON3Ta»ONBHI2*CONST9**PI2 (»*PI2 
TAU8AR=1 F( I («X1 *F( I* I (»X2 (/H( 1 1-C0NST1*H( I )» 

1(XI*»TAU0P1 I (»( T£RmtTERM2«X12+TERf13*‘Xl4(» 

2X2«TAUDP( IH (•( TERNl tTERM2'*X2C ♦ TERri3»X24 ) ) 

TAUBH=( F( It 1 (-Ft I ( (/HI r (-CONSTI-Ht I (•» 

1 ( TAUUPt I M ( t-l TERMl 1 3 . i*TERM2«<X22 15 . «TERt13t*X24 )- 
ETAUOPt !(>*( TERmt3.»TERM2<>X12t5.<»TERM3t*X14)( 

TAUBP=SCALE-tTAUDP/ALPHA 
GO TO 30 

C **44 USE HTPERDOLIC FUNCTIONS 
25 0EN0M = PI24Slint( P( 1 (HHI I n 

TAUBARst TAUUPt I (»SINH( P( I (tXl ) tTAUOPt It! (i*SINH( P( I )»X2 ( (/DENOM 
lt( (Ft I (-TAUtlPt I (/PI2 l<*XltlF( Itl J-TAUDPtltl (/PI2 l«X2 l/Ht I i 
TAUOP=( TAUOPt Itl («COSH( P( I I i*X2 ( - TAUDPt I (*COSH( P( I H*X1 ( (<*P( I (/DENOM 
ItlFlItl l-F(riKTAUDP(Il-TAUDP(Itl l(/PI2(/HII) 
TAUBP-SCAL£*TAUL1P/ALPHA 
30 CONtlNUE 
RETURN 
END 
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Appendix III; Euler Solver 




PkJG'^A-l MA IN ( If,PuT,OUrPJT, TAP El b = INPUT# TAPE lb=JUTPUT# TAPE 10# 
ITAPtll ) 

C 

tULEr'cD: 0. J. i"CCAP.TI-l 2/31 

5j!!r » 

Kc AL JAC:-3N( -f J#1A )# { A0#1A ) # f i•1NT^ I AO# 1 A ) # HM ( AO# lA ) # NNC AO# 1 A ) # 

If-'INF# ^ACrl( AO# lA) #,>'.300 

L'1/i£NSI0i'. DE liiT («u# iA)#trisGY(AO#lA)#CO(Ao#lA)#EE (A0#1A)> 

ISaVEC ( AO# lA)# S/i V E,'i( AC# lA) # SAVEN ( AO# lA)# SA'/tE ( AO# lA) # 
2.MA0#lA)#Y(A./#lA)#XP(A:)#rP(lA)#S(A0)#SP(AO# 

3d (A J) # TAUi'P( AO)# P ( AC )#H( AO )# 

AXSUBM AO# lA) # YiC 2 Y( AC# lA) , Y3UBX ( AO# lA)# YSIBY ( AO# lA) # 
5PPl(AO#lA)#F-^2(AO#lA)#PP3(AO#iA)#FPA(AC#iA)# 

/3F'‘1( A^# X A ) # E 12 ( A ^# 1 A ) #F/,3( AO# lA ) # FNA ( AO. lA)# 

7GP 1( lA# AO) #UP 2(1A# ^0) # jP3{ 1A#A0)#0PA{1A#A0)# 

BOM ( lA# Au) # G '!2 ( 1 A#hO ) # 0 -',2 { lA# AO ) #G/'A ( lA# AG) # 
9FiX(A0#iA)#F2>(Ao#lA)#F3A(A'^#lA)#FAX(AC#lA,)# 

X& i Y ( w 0# 1 A ) # G 2 Y ( AO # : ‘. ) # 0 3 Y { AO# 1 A ) # GA Y ( AC # lA ) 

CL'> 1 >'uN CC\ST1#CG.\ST2#C JN5T3#CCr.STA#CC:,NST5#CJNST6#CaNST7#C0NST8#CQN 
1ST9 

DATA VA-?/O.C/ 
wPITEdij#!) 

1 Fu P 1 AT (1 Hi #//////////////////////////////# 50 X# 
i25HEL'LEP20BY3«J. PiCCARTIN) 

CALL PLQTSdL( 6 JO# lAHb, J. MCCAPTIN) 

CC‘"oTi“i#/o» 

CGNST2=l./3. 

CCNST3 = — 7»/dJ» 

CONS rA=31./2-3 20. 

CuNST5 = -l./l.-). 

ClNST0 = 2./315 . 

C(-NST7 = ~7«/iy5» 

C U S T 9 = 1 • / X 2 ) • 

CALL I N P U T ( G A A # 0 : ■ . T A r # N P L 0 T # N S T 6 p S # iN P 1 # M P 1 , N I N F ) 

CALL CD2RL<NPl#NPi#XP#YP#X#Y#S#SP#YMAX#0£LTAX#0ELTAY# 
iXSU3X#X3UcY#YSO=X#YSl3Y#JACQbh) 

CALL INITFl ( JENST# PMsr,n#NPNTN#ENRGY# S# SP# YMAX# YP#NP1#MP1#MINF> 

1 G A i1 P A ) 

NPTS=NPl-PPi 
Du 10 J=1#PP1 
DO 1C I=i#NPl 


T t K,M = MPH TH ( I # J ) - =? E + T M (i # J ) «« 2 

MS 00= ASS { TER,-. / ( GAM;-;a«( oAM.MA-l .)*(DENST(I#Jl«ENRGY{I#J)-.p*TERM))) 
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10 Cunt I Nut 

00 luo KBl,loTtPS 
Du 15 j = i,;-tPi 
Du 15 I»l#riPl 
SAV£u<li J ) =OENST ( J J 
SAVt^i( J )=M.1NTr'( I, J ). 

SAVcN{ I> J ) =N J ) 

S6VEE ( I# J ) =6 iPGY ( If J ) 

C D ( I f J ) = 5 A V E J { I f J ) 
l-ilM If J) = 5 aV£ -i( If J ) 

NN( If J ) = SAVEn ( I , J ) 
tc(IfJ) = SA*'E£(IfJ) 

15 CGNTIN'JE 

Call D E r I n F ( D u f f 1 4 1'; f c E f >! P f Y P f t'i P 1 f ii P 1 f 
1 Y A X f o A '^AfhPlfppEfF('3fFPAfFi' lfFi*^EfF/i3fF.'lAf XSUSYfYSUdY) 
CALL D E F i f ( u ( J D f '1 (■’’ f N N f i: t: f A P f Y P f N P 1 f 1 1 P 1 f 
1 Y .’'i A X f G A .'i I't A f G P 1 f G P 2 > G p A f G P A f G i"’ i f o 2 f G pi 3 f G A f X S U 3 X f Y S U 3 X ) 
Call C!T’'’PFP(X?^iiFlfI''PIfFPlfFP2fFP3fFPAfF'1lfFf12fFi'l3fFi’'1Af 
1 B f T A U D PfPfHfFlX^FEXfFjXftAXfLELTAX) 

Call Cl>1PGP(YP»f.^i>.iPifUPifGP2fGP3fGPAfGMlfCi'12fGM3fGMAf 
lr'fTAUJPfPfHfilY>'G2YfG3YfGAYfGcLTAY) 

DO 20 J = 1 f P 1 
DO 20 l = l'f,;?l 
DELTA = DELTAT/JACCeN(I> J ) 

DtNST(IfJ)=DE<ST(Ifj)-(l./o.)^-CELTA>!'(FlX(IfJ)+GlY(IfJ)) 
KPNTf' ( If J) = ,*•■ ‘ST'' ( If J )-( 1. / -. ) =!^DELTA=i‘ ( F2X { I, J )+G2i’( If J ) ) 
f.;'.NT>. ( If J ) = N''’NT,‘'‘ ( If J )-(l. / 6. )=FDELTA=f= ( F2X( If J ) +G3Y( If J ) ) 
EhKGY ( I f J ) = ESPGY ( If J )-( 1 . / j. ) ^DELTA-!^ ( FAX ( If J ) + GA Y ( 1 f J ) ) 
20 CLSTIKJE 

DO 2a J=lfMPi 
DO 25 I=lfP,Pl 
0 e L T A = D E L T A T / J A C 0 e N ( I f J ) 

DD{IfJ) = 5AVEJ(IfJ)-.5=*=DELTAA-(FlX(IfJ)+C-iy(IfJ)) 

If J ) = 5AV£S (If J )~. S'i'OELT A^ I FOX ( If J )+G2Y( If J ) ) 

N.\( If J ) = SA vE U If J )-.5xD£LTA- ( F3X (If J )+G3Y ( If J ) ) 
EE(IfJ)=iAVEE(IfJ)-.5'PjELTA’!^(FAX ( If J )+G-tY{ If J ) ) 

25 CONTINUE 

CALL DEF INF ( DOfNNfNNf EEf XPf YPfNPlf. ■‘IP If 
lYP.AXf GAN.SAf FPlf FP2f FPjf FPAf FMf F;-I2f FP.3f F>1 A f X S U 3 Y f Y S UB Y ) 
CALL 0 E F I N G ( 3 Df SP f t.N f E E f X P f Y P f P If /. P 1 f 
lY.MAXf GANPAf If GP2f G P 3 f G P A , GP 1 f G '12 , G P. 3 f G'lA f X S L3 A f Y SUB X ) 
Call CC.iPFP ( XPf N'Plf ■’ Plf FPif FP2f FP3» FPAf F '''ilf FP2f FN3f FMAf 
1 Bf TAUDPf =>f hf FiXf r2Xf F3 Xf FAX, CELTAX ) 

Call C O ;■! P G P ( P f i 4 P l f Pi P 1 , G P 1 > G P 2 f u P 3 f o P a , G P l f G pi 2 f G M 3 f G P a f 
1 B f T AL DPfPfHf31YfG2Yf63YfGAYfL.cLTAY) 

CO 30 J = lfPiPi 
00 3 C I = 1 f i , P 1 
D£LTA=D£LT AT/ J AC03N( if J ) 

DENST ( If J) =DENST( If J )-{ 1. /3. ) ^DELTA* ( F1X( I f J )+GlY( If J ) ) 
P.hNTE ( If J ) = P,PNTV ( If J )-{ 1. / 5. )=?C £LTA=»' ( F2X(lf J )+G2Yt If J ) ) 
NP.NT.SC If J )=N.INT>: { If J )-{ 1. / 3. )«r.ELTA=!= ( F3X( If J ) +G3Y( If J ) ) 
ENPIGY (IfJ) = £S-?GY(I,^)-(l./3.)>!'CELTA4=(FAX{IfJ)+GAr(IfJ)) 
30 continue 

DO 35 J=lf'lPL 
DO 35 I=lfNPl 
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J ) = SAVE.;. ( 0 )-. >r jF.L TA« ( H] X ( 1/ J ) +Cif ( I, J ) ) 

{ I# J) = :Avn ( U J )-. t;^jELTA*( F^X( I> J )+G?.Y( I ; J) ) 

f.f ( I » J ) = 5 .WE ( ( I ^ J ) - . 'j £ L TA^ ( F3 X ( I # J ) +G 3 Y ( I ^ j ) ) 

tE(I#J) = iAVE=(i^j)~.:.-rj£LTA'MFAX(I>J)+CAY(I#J)) 

3z> CoNTIS'jE 
CALL CEr If F 

1 Y' AOGA‘^..-U,Fn> F*^2> Fci> FPA»FiU> FI',3>F.’1‘t> XSUfjY# YSUBY) 

CALL 2 £ F I ; > G ( J .W i’ ‘ ^ ‘ : E > W > Y f / f . F 1 / ''( ? 1 # 

1 Y »'. A ' j .W '’i A ^ C i > *-• P 2 » G G # o F A > '■> j I i # G I'l 2 > o Fi 3 ^ G lY A / X S iJ X > Y S U F X ) 

CALL C: '.PFP( «. F,' -'1# ■'.Fl>FFi»FP2^ FPS^FFA^FYl^F'YHiFhB^FYA, 
1'3>TXLJP»P;H^F1;^F2^;F3^>PAX ^C'ELTAX) 

CALL C-i I ^ P * ^ I } ’'r'i>Gri>GP2#0F3^GPA^G’11/G.12^&'13#GYAi 
P, Gi u2''» u3 WGAY^GELT AY ) 

JG A', J = l,.‘''Pi 
DL ■4 u I = 1 ^ 1 . p 1 
LcLTa=:eltat/ j.'c:^’.( wj ) 

U)E ( I , J ) = : E'.-iT { i W )-{ 1. / 3. ) *[ ELTA4= i FlXf 1> J ) + GiY ( I, J ) ) 
rYNT.M I, J ) = '. nT‘ { I, J )-Cl. / 3. ) <TELTAX= ( F2Xv I W ) + 52Y( I>J ) ) 

!>:• >IT'''( I W ) = . '.‘-.T,'. ( I, J )-( i. / 3. ) ^-L ELTA=)' ( F3X(I/ J )+G3Y( I^J ) ) 

Ef.PGY ( 1 W ) = E-tFGY ( I / J )-{ 1 . / 3 . )X=uELTA*i: ( FAX { IW )+GAY( I, J ) ) 

AC C G N T J i' I j E 

Du Ar J = l,'-'iPl 
0GA3l = i^i.Pi 
G£LTA = GELTAT/J iCuBi's ( ) 

uD ( J 3 (!• J )-DE L TAX- ( FIX ( I W ) + GlY( ) ) 

/M I ) = S AVe ■' t W J )-lclTAY { F2X ( I ^ J ) + G2Y( !♦ J ) ) 

= . (i/J )“'.>ELTA^(F3X(1;J )+G3Y(1>J) ) 

cE { I W ) = J AVEE ( I> J )-DELr Av- { FAa ( I.» J)+GAY( I W ) ) 

A5 CG'iTlAUE 

Call 0 E F 1 .•■; F ( u D ^ i‘'i 1 • . f io E t > X ? > YP > K P 1 ^ M F i > 
lYYA\^GAi‘'{‘’’A>FFl#FF2^FFA#FPA^FNl#Fil2»Fr13#FiiA^XSUt3Y#YSU3Y) 

Call o >; f i f . g { j c # ^ .‘.n ^ c c ^ x p > y p ^ f> P i > '■< p i # 

1Y;-.ax, GA^'fnA, o?i,GP2, GP 3 ^ G P A , GM 1> GY 2 # GP GY A , xS Ufl X , Y S UB X ) 

CALL CG 1PFP ( X-3,: ?!.. '•’FI t Ff 1;FP2# FP3^ FPA^ FYl^ FY2/ FY3# FYA# 

lB#TAoO^#P#r>“iX/F2x/FjX^FAX/iJFLTAX) 

Call C’Ji’i^L’P ( f P f n P 1 f yiP 1 f GPi^GP2^ GP3#GPA>GY1>GYi2> GHSj'GiIAj' 

1 3 , T A I. D P J. P , !- 5 G 1 Y > G 2 Y # C 3 Y i G A Y # C E L T A Y ) 

DG 5j J = l,y.Pl 
Cu 50 I=i/GPi 
uELTA = 3ELTAT/JACjbi<(I#J) 

•JEnST t I, J) = :£ '.>T ( IW )-( 1 . / o. ) •XDELTA^' { F1X( I> J J+G1Y( li J ) ) 

( I W ) = • 'INT M I# j )-( i. /6. )*[ ELTA* ( FZXl 1> J )+G2Y( I>J ) ) 
h.YNTY ( I >J ) = \.WT.M I, J )”( i. / E . )’?DELTA--i' ( F3X [ li J )+G3Y( I> J ) ) 

EI>^GY( I, J)=WPGY( I, J)-(l./o.) ADELTA=X{ FAXII^ J)-fGAY( IpJ) ) 

50 Cu 'I 

TI.1c = K^0ElTaT 
iY=(!</’^PLuT )=^N^LuT-K 
r-iSU?=o 

Du 50 J=1>YP1 
3 u 6 I = 1 / \ P 1 

T E .^r,= - NT Y ( 1 1 J ) ^^=2 + Nr l-iTi''. ( i > J ) 

YiSOO^ AGS ( ThR •: / (Ga (GAYYA-1 . ) « (OENST ( 1» J )«ENkGY( I>J )-. 5*TERY ) ) ) 
’■i A C h ( 1 ^ J ) = J w -v T ( Y S w J ) 

IF( ii^Cri(I>J)»o£.l.) ‘'OUP=r<SUP-<-l 
60 C C S T I N U E 
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jOENiT*—!* 

5NMST1«-1. 

SENKGr — 1. 

ADE'iST = J» 

A.S,'‘.NT«»0. 

AN;i'4T,-. = 0. 

A £ N R G f = 0 # 

0,0 7C J = 1j^P1 
DC 70 1=1, UPl 

D£LrAj=A3S{C£*5T(I^J)-3Avcu'{i^J)) 

DELTAii = ASi(.-’'.NT,-(UJ A V £ii ( I > J ) ) 
ijf:LTA‘i=Ac5(<'<''i'iT’' ( I , J ) ) 

Dt:LTAr=Aii'(*: «RGf ( I^J)— iAVEt,( l^J!) ) 

A D E N S r -• A p c i 3 T + 3 £ L T A D 
A,'1 r,Ty.= A'-IMM ‘i + CU TA/. 

A M < T *'1 = A * I ''i N' T + D t L T A * « 

Ac*’i^Gt'-Aci»Rof + _i£LTAt 
IF(SDE'J3T.OE.3ELrAD) GJ TO 71 
S j£.NST=DELTAP 
130=1 
J S D = J 

71 IF(S‘"M’;NT;i.GE.Oi:LTAD GD TO 7P. 

S^,M^IT ‘'.= 0EL TA*'-, 

IS. '1=1 
viSi= J 

72 IF(5N;'’.N.T;-1.&£. DELTAS) Gj TO 73 
SF'.'i.'1Tw=DElTA-I 

I3N=I 
J A '( = J 

73 IF( SEN'?GY. GE. 3ELT AE ) GO TO 7C 
StNRGr=D£LTAE 

ISE=I 
J 3 E = J 

70 CONTINUE 

ADEN3T = A0E'oT/,sPTS 
ANM'n N= Av.i'iiNT 1/NFTS 
AN '1NTM = ANi'iNT>'. /;.pts 
A t NR G Y= A E N S G Y / '. P T 5 
o R I T E ( 1 5 > 7 r ) > i''. 3 U P 

78 FGR.SAT(5H K = , 1 3 7Hfi SUP = ,15) 

WRITE (lo>7A ) 3CEXST> 1 30> J 3 l;> ADFKST 
7A F0RMAT(iX,£i:.7W5,13,E15.7) 

w A I T E { 1 o # 7 5 ) S ■•‘t . 1 T i-'i > 1 3 ,-W J S ^ A jN i'*! N T i" 

75 FOR'iAT{lX»£lj.7^i5?:5^£15.7) 

rt A I T E ( 1 o > 7 c ) 5 1 ' T •' > i S -N ji J S N ^ A r. i'' N r (•! 

76 FCRNaT( 1X>£15.7,I5^ Ii:>Ei5.7> 

WKlT£(io^77) SENRGY^ ijr-^oSt^AEf.RGY 

77 FCR lAT(lX,el5.7^I5j I5>El3.7) 

REWP^O 10 

-AITEdO) K 

WK I T E ( 1 0 ) I ( 0 ENST ( I # J ) > NiANTN ( I ^ J ) > M.'IMTP ( I # J ) > EN RGY ( I, J ) > I = i ^ NPl ) # 
lJ=l,NPi) 

I F ( N • N E • G ) G J T C 90 
CALL CHEKPTXrVAR) 

«kITE (itJ»8l) 
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fS 

61 -FLi^.iAnbH INLET ) 

r' I T t { 1 6 > c2 } ( J ^ r.';, ST (i / J ) , hr. NT h ( 1/ J ) > NHNT M ( 1 , J ) , 6 NRG H 1# J ) / 
lhACH(i,J)> J = 

62 FLiR'^ATdX# I5> tcap. 7) 
nKITE ( 

83 F{jR’^AT(7H uUTLET) 

WR ITE (16>52) ( J/3E;<ST ( 'i Pi > J ) ^ PMNTM ( N P 1, J ) > NMNT li ( MPl , J ) , E NRG Y ( N PI# J 
l)#.MACH(NPi# J) #J = i#/,Pl) 

>riTE(l'3#G‘i) 

64 FCP;’;AT(iih uppt;p /.'alu 

<.s-ITt{lfc,>c2) (I>ut..LT( i #C'iPi)#MhNT.'1 ( I #f1P 1 ) # U/.NTM ( I#!*! Pi ) # ENKGY (I#MP1 
1 )# 1ACH< I#hPl) , 1 = 1#’, PI) 

ITt (i6#-S) 

65 FG'<'*’i4T(IiH LG,\c^ ^ALl) 

I T £ ( Ic # c2 ) ( I # 0 t’J iT ( I # 1) # hNNTM { i # 1 ) #NM,MTM ( I # 1 ) # ENRG Y ( I # i ) # 
lhACH( r#i)# I = l#r.Pi) 

SCALX = ..s75 
SCA'L'-' = d. 

Call f p a ,'■1 e 

I PE’,= 3 

DC ^l7 1 = 1# N Pi 

CacL PLaT(SCALX*(Xn#i)+i5.)#SCALM^''lACh(I#l)#IPEN) 

67 IPE*1 = 2 
Call Fkane 
IFE‘i = 3 

CC3vI=l#NPl 

CALL PL JT ( SCAL XX: ( X( I, hp 1 ) +113, ), sCALh=f^,1ACH( I#MPi') # IPEN ) 

69 lP£-, = 2 

90 CALL c.nDkYC (NPl#/’ipl#MNF#GANNA#DElsST#i*)hNTM#-N,'iNTii»6NRGY#SP) 

IGO CC.NTl s'JB 
CALL FPA1E 

CALL PLjT(Q.#0.#999) 
lOOC STD? 

END 


S03RC JUNE LiPUKGA,'".’^ A, OtLTAT#fNPl.CJT# NST£PS»N3l, NP1 ,MInF) 

C *** IMTIALIAE PARA^ET£<?6 
REAL hi N r 
GAN‘';A = 1,4 
M.NF = .6 75 
CELTaT=.05 
,' 4 P 1 = A 0 
N f i = 1 4 
N6TEPS=75C 
NPLJT= 50 
>.RITE{16#10) 

10 FQRNaTC 6H1 IN^'JT) 

WRITE (lo.*li ) 

11 FCR'"AT( l‘i # 7,\#5MGA-^’^.A, i0X#4Hi’’INF#10X#6hDELTAT#lbX#3HNPl#12X#3HMPl# 
11 OX# ::HNPLCT#iOX#t hN STEPS) 

nRIT C (Id, 12 ) 3 Ah A# I NF # u E LT AT # N Pi# M P 1 # N PL OT# NS T E PS 

12 FC'RMATdX # JE 15. 7#51 15) 
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K t T'J>^ N 
END 


Su3S:(jUTINE CDG»^L(.NP1^;V1#XP# YP;X»Y#S/SP»rhAX>DELr^X/OELTAY/ 
IXiUBX# XS'JcY^ YSUci X> YSbci Y^ JACGbt.) 

C GtricPATE SHEAKED CJOp JlriATES 

PEAL J^CGL'fit AG^IA ) 

Dl’itMilUN aP( AC YP (1^) ^ X3(1A ), YS( ),Po(lA) f TAUJPS ( lA ) # PS (l*t ) ^ 
IrtS{lA)>j(AO)»S?(-^C)^X(A0^1A)jiY(AO^IA)> 
2xSU3X(AO#iA)^i^3GdY(AO^i4)#YSLLiX(AU,lA)., YiU»Y(AO^lA) 

L.IMtl.SIu.N XT(3)>YT(.^)^jT(i),TAULJpr(3),.pr(3);HT(3) 

X|-'AX=15 . 

Y .•■ A X = A . 

DcLTA* = 2.-XMA«/(’.Pl~l) 

DELT4Y=Y’^AX/ { MPl-l ) 

Du 10 1=1, NPl 

10 XP(I)=X 1I}.+ (I-1)>^l:ELTaX 
DO 2 C J = 1 , !'■ P 1 
20 yp( J )= ( J~i )«DELTAY 
X 0 A t? = 5 • 

DT = 3 

XT ( 1 ) =0 . 

> T { 2 ) = X a AK+ . 5 « ( X ;•• A X -X .J A R ) 

XT( :>) = x:iAX 

Y 1 ( 1 ) =0. 

Y T ( E J = X a A p 

Y T ( 3 ) = X ‘I A X 
FPA=YT(2)/xr( 2)-. 15 
FP8=(YT(3)-Yr(E))/(XT(i)-XT(2))+.l 

CALL EXPSPL(XT,Y F , F P A, F P r , MT, , UOOP T, P T# H T# ALPHaT) 

DO 25 1=1, \ PI 

IF (/.PCI) .GE.,). ) X£VAL = XP(I) 

IF (XP ( I ) . L 1 .0. ) XEVAL = -XP(1) 

IF ( XEVAL ,LT, Xn i > ) Xt*VAL = XT(l) 

IF( XEVAL .GT . xn;,T ) ) X. t ; A L = X T ( r-T ) 

CALL ESE v'4L< XT, YT, M, 3T, T AUDPT, PT,HT> XEVAL, X ( 1, 1 )# XSUBX( i, i ) , 
IDuM'iY, DlJ.'iy.y, AL PHAT ) 

I F ( X P ( I) . L T . C . I X { I , 1 ) =-X ( I, 1 ) 

25 CONTINUE 
NS = 7 

XS (1)=X.-!IN 
XS { 2) =-5 . 
xS ( 3 ) =-2 . 5 
xS(^)=o. 

X S ( 5 ) = 2 . 5 
XS ( 6 ) = 5 . 

XS(7) = X-'iAX 

Y S ( 1 ) = 0 . 

YS(2)=0. 

YS(3)=.l 

YS(A)=.^ 
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ys (ij) *. 1 
Yj(b)>C. 

Y3(7)»u. 

CALL EXPSPL( <S/YS^O., J,,liS#BS^TAUDPS/P3^HS# ALPHAS) 

C/U 3C .1*1, (<P1 
XeVAL = X( 1,1) 

IF(X6VAL.LT.X5(1) ) Xc7AL*XS(l) 

IF (XLwAL .C-T. X5 (.‘ S ) ) x c7AL = X3 UlS ) 

CALL tScVAL(XS,rS,Mf,,^3,TAU0PS,PS,HS,XEVAL,S(I),SP(I)» 

1DU'1.''Y, DJ/iMY, ALPhAb) 

30 C CN T iftUE 

DO Al. J = l,Mpi 
Ou AC l=i,)NPi 
X ( I . J ) = X ( I , 1 ) 

y(I,J)*yp(j) + S{I)=!'(i.-yp(j)/yhAX) 

AO CCi.TIM'E 

^KlTE(lc,Al) 

A1 Fb?. 1AT( vHlGEl -lETf^'Y) 

>.r. ITr { lb, A2) 

A2 FCR.'JATdH I,bh J , 7X , 1 h X , 1 A X , 1 HY ) 

hPirE(i6,A3) (n,o,x(i,j),y(i,j),i=i,NFi),j = i,hPi) 

A3 FCR’'1AT( IH ,3I5,EEi^.7) 

Du 5C J=l,HPi 
Du 5u 1 = 1,,'! Pi 
XiJ6X(I,J) = )'3UcX(I,l) 

xsu3Y( I , J ) =■:, 

T 3 U3 X ( i , J ) = 5P ( I ) - { 1 . “ rp ( J ) / YM AX ) X--X so BX ( I , J ) 

YSJ3Y( I, J)=l.-S( I)/Y,-AX 

J AC j-N( I, J ) = XSU6X ( i, J ) v'Y 5UBY( I, J )-XSU3Y ( 1, J )>f'YSUbXl I, J ) 

50 CONTI.''ij£ 

«kITE(16,51) 

51 FCP-UT(lirt I J,oX,5HXSUBX,i0X,5l-XSUBY,10X,5HYSU3X,10X, 

15HYSL’5Y, i0X,6HJAC0bN) 

‘..KITE (lb, 52) ( ( 1, J,XSU)X(I,J) ,y SUBY( I, J ), YSUaXn,J ) ,YSU8Y( I,J), 
ijACJ''N{i,j),r=i,i^Pi),j = i,;iPi> 

52 FCRY.ATdH ,2I5,bE15.7) 

F.ETUPN 

END 


SOBRuUTlNE INITFL (DF.NST,i'lMMr,NMNT.’*), ENPGY, S, S P, YM AX , Y P, NP 1, HP 1 , 
lMiHF,GA i^'A) 

C calculate INITIAL FLC'w FIELD 

REAL P,r.F,.''-M'lT;''. (iO,lA),M.',NT.N(AO,lA) , 

Di MENS! JN ObsST( AC, lA) , ENRGY( AO, 1A),S ( AO),SP (40) ,YP (lA) 

DU 1C J=1,MP1 
DD 1C 1=1, HPl 
DENST (I, J )=1. 

£NKGY(I,J ) = .5 + l./ (GA.N,MA=i=(GAMMA“l. )*M1.NFA,MINF) 

IG CCNTIN'JE 

DO 20 I=l,NPi 
.SNNT.MI,.'1P1 ) = 1. 

NNrUN(I,.APl) = C. 
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MHNT^ n/l)sl./3C5T(l. + 3r>(I)*SP(I)) 
fiK.NTf'.C I#1)»S? ( I I#l) 

20 CONTINUE 

00 30 J=2^M 
DO 30 I=1#NP1 

KMNT .*« n > J ) = ( Y P ( J ) / r X H'f'i.iNTM ( I / «Pi ) + a .-Y P < J ) / YM AX ) “S' MMN T.M ( I # 1 ) 
NrtNT.’- (I^J)s(YP(J) / Y,*- AX ) «NMNTM ( I > /1P1 ) + ( 1 .-YP ( J ) / Y.M AX )«NiSNTi-1 (I ^ i I 

30 CONTINUE 
WKITEU6/31) 

31 PC^.^aT(19H1INITIAL FL:J4 FIELD! 

«RIT5(16^32) 

32 FOR'-iATaH I J / 5X / S HOEnS T^ 1 0 XOHNMN T.'l> lOX # f>HNNN Th/ 

IlOX, jHENPGY) 

W F I T c ( 1 & # 3 3 ) ( ( 1 / J / D E N i T ( 1 > J ) > N N T f'l ( r , J ) ^ b. M N T N ( 1 ^ J ) > H N P G Y ( I ^ J ) > 
1 1 = 1^ NPl ) # J = l; NPl ) 

33 FC’MATdH ^ aib/'rtiS.? ) 
kETUPn 

END 


SU3RUUTIN6 DE F IN F ( DC, N ’W f,N, fc F ^ X P> YP ^ N P 1 » NP 1 j 
lYN AX, G A A, F*^!, FP 2, FP 3, F Pi, FM, FM 2, F N 3, F S A , XS U3 Y, Y S U3 Y ) 

C DEFINE FLUX ^ECIUP SPLiTTlNG IN X-DIPECTIQ(‘s 

KE AL A0,1A ) ,N \ (AC, li ), LA'Vl, LAMP3, LA>1PA, 

1 L A '1,1 1 , L A 'iN 3 , L A '>!' A , K M , N i 1 , K 2 T 
01 ME N5 1 ON OD ( AO, i A ) , t c ( 40, 1 A ) , X P ( A j ) , YP { 1 A ) , 
2FPl(AO,li),F’=2{Au,lA!,FP3{AO, 1A),F^^A(^C,1A), 

2FMKA0, 1A),F'12(A0,1A),FM3(A0, lA),f'MAlAC, lA), 

3XSUBY ( AO, lA), YSUoYI AO, iA) 

DO 100 J=1,M?1 
DO 100 I=1,NP1 
U = M;1( I, J )/DD( r,j > 

V=i(N( !, J)/OD( I, J) 

CS00 = A5$ ( (EE { I, J I-.S’bC •1M( I, J )=«=NiM(I, J )+NN( I, J )’«'NN( I,J) )/OJ(I, J))^= 
IGAMlA'i^CGAN.'lA-i. )/DD(I,J ) ) 

C=SORT(CSOO) 

GCNSTi=Y5U5Y( I,J)^J-X5jdY(I,J)«V 
KKT = iORT ( YSU5Y( I, J )-^‘2 + XSUrY( I, J 
C0NST2=C^XkT 
LAMP1=0. 

LAMM1=0. 

IF(CONSTl.GE.O. LAMPl = CuNSTl 

IF(CGNSTi.LE. 0. ) LAM,\1 = CCN:sT1 

LAMP3 = L AMP1 + CQ!:ST2 

LAMPA=LAMP1 

LAMM3=LAHM 

LAMMA=LANrtl-C0NST2 

K1T=YS'J3Y( I, J )/KKT 

K2T = -XSJ'3Y ( I, J)/r<.KT 

CuNST3 = DD( I, J )/ (2.«GAM'IA) 

W=(( 3,-3AM.^A)4=(LAMP3 + LAMPA)vC*C )/ (2.>!'(GA’1NA-1.) ) 

FPK 1, J ) = C0NST3^(2. «( GAMMA-i. ) * L AI1P 1 + L AMP3 + L AMP A J 
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rP2( I» J )»CCr.i T3<= {2.^- )«LAKr>i«U + LA.'':H3« 

Kt+c^Kin + LA VH^(u-c»-;m ) 

FP3(I,J) = C*J.ST2<’(2.-i'(.,H 'll' A-i. )<=LAMP1»V+LA.MP3« 

1( v<-C-K 2T) + LA t V-C«-<.2T) ) 

F?^( I» J ) =CC‘.3 T2< ( CiA*-' )<=LAl-’Pi* (>J->U + V>V ) + .ii«LAHP3+ 

1 ( ( J + -: 4“'^ 1 n i + ( V ♦ Cv 2 T ) 2 ) + . L A.IP A ♦ ( I U-C 'i'Ki T ) 

2*(V-C*'<2T)*«2) + *-) 

►. = ( { ;->,-3A,-'"A) <={ I A“’ '■.i + LA.ii'.A )«C«C } /(2.<» (OA ti",A-l. ) ) 

F.' 1( I » J )=CuNSTiv (2. ctoAr;,\A-i. ) « L AHi1 1 + L A.'i;''3 + L A^M A ) 


F.'^ 2 ( I . J ) = C J'.5T J’!= ( (jAf'u'tA-i. L AHMK^U + LArMS^i' 

1 ( u + C r ) + ( j-C «i-KlT ) ) 

F I -1 3 ( I , J ) = C ^ I . S T 3 - ( 2 . 'i' { G A >1 ;m - 1 , ) >!■ L A ^ i => V + L A F‘. M 3 * 

1 { v+C'^^.2T )+LA-, •;a- ( V-C<<aT) ) 

FnA { 1 , J ) = C ^f-3 T2-M C-A"'. -iA-1 . )'i>L U>U + V*V ) + . 5« L Al".r'1 3« 

l({U+Cr^iT)=<=-^' + (V + C*K2^)«=P2 ) + . Ai'';;iA=«‘ ( ( U-C ♦KIT) ♦♦2 

2+(V~C=»K2T)*’*‘2) + rs) 


IOC 


I F ( A S { F P 1 ( I , J ) ) . L T 
It-(A-5(FP^(I>JJ).LT 
iF ( A^5( FP3 ( U J ) ) .LT 
IF(A(t.S{FPa(1, J)) .LT 
1 F ( A 3 S ( F •• 1 ( I ; J ) ) . L T 
IF ( A.-iS ( Fi',2 ( ! > J ) ) .LT 
i»- ( Ar.S( F;*3{ J ) ) . LT 
IF ( Ac?3 ( FSA ( I J ) ) . LT 
C i_i N T i iN U £ 

K £ T u F N 


- “ i 0 ) 

FPl ( I# J )=0 

c-i J ) 

Fp4:{ 1# j )=0 

L- X 3 ) 

FF3 ( 1 , J ) = J 

'-iJ ) 

FPA( I# j)=0 

E-10) 

r i'l I ( I # J ) = 0 

E — i '0 ) 

FN2 { I# J ) = 0 

.-iO) 

FN3( I# J) = 0 

E ”i V# ) 

Ff1A ( I# J ) = 0 


E I'i 0 


SLrtPCiJTIf'.t DEFlNG(CD>‘'ti'i>liN^t£j'XPiYP>NPl>MPl> 
lYMAX>oA'l.'1A^oPi#0Pl‘^GP3»GPA.GM)#Gi’l2>oM3/&i‘lA>XSL)BX^YSUBX) 

C DEFINE FLUX vhCTjA SPLITTING IN Y-L) I P EC T I DN 

K E A L Fi M ( AO# 1 ^ ) # r- N (AC# i A ) # L A . ’ P 1 # L A li ? 3 # L A P A # 

ILAP.^2 »LAi'^.'i3#L A--T A#KKT#KiT#!^2T 
U1 '(£.*• SI 3r; GDI AO, lA)# Ec(Au#iA)#XP(AO)#YP(lA)# 

IGP 1 ( 1 A # A 0 ;)# GP 2 ( i A # ^ C )# GP3 ( 1 A# AG )# GP A { J A# AC ) # 

2G^.l(iA#AJ)#G i2{iA#AO)# ji“^,3(1A#AC)#Gi'!a( 1A#A0)# 
3xSU3X(AJ#iA)#YSL3X(AC#lA) 

DO ICC J=l#»Pi 
DO ICO I = 1#.\P1 

I# J ) / 0G( I# J ) 
v = .^;<>,(i# J ) /OD( I# J ) 

CSOO = A3S((£E(I#J )“. $♦ (4;i( I# J ( I# J ) +NINi ( I # J ) 4-NN ( 1#J))/DC(I#J))« 
lGM.^i^.A»(GAM.;A-l. )/LD( 1# J) ) 

C=SjPT(C50C) 

CONSTl =-YSU3X (I# J )^u+XiUbX( I# J)«V 
KKT = SOPT(YSU3X(I#J)<--*2 + XiU?X(I#J)«=J=2) 

C C N S T 2 = C ♦ K T 
LAMP1=0. 

LA.'1P.1 = 0 . 

IF (CONST l.GE.O. ) LAKP1=CDNST1 
IF(ClNST 1.LE.O. ) LAP.'ii = CONSTl 
LAiMP3 = LAMr i+CO'-STZ 


1 
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LA‘1PA = L 
LAM •',3- LA IK 1 
LA.'i:-'.^»LAf'.f;l-C0N3 F2 
MT»-YSU3X I I » J ) /-<<T 
K2T»J'i>U3X (1^ J )/^^T 
CONST 3»DD( 1^ J ) / (2 .<‘Ga;*.MA) 

t ( ^.-GA|^MA) * (LAi-PSt.i.A^s-A )'»C*C ) / (2.» (CAMMA-i. ) ) 
&Pl(JfI)=Cu:^ST3v(2.4: (.jAMMA-I . )«LA.IP1 tLA 1^3 + L AflPA ) 

&P2(j>n=c:*rjT3*(c.^ { gam.-ia-i . ) ’pl ampi’»u+lai‘'P3’«' 

I(u + C«^-^1T) + LA';0A?(.J-C’?KIT)) 

GP3 U > I ) = CG*.S T3v ( ^ .V ( . )’i‘L AiHi^ V + LAMP3> 

1( V + C«i<2T) + LA:',PA=)' ( V-C»:=^2T J ) 
GPA(J,i)=CO‘.STiV((„A'--iA-4,.)''L/i'Pl’)‘(U<-U+V^‘V) + .D?LA^P3« 
1( (iJ<-C^''iT)T=r2+(V + C*'<2T)*l‘'‘2) + .5TLA.'^iPA'''' ('(u~LtK1T)'^‘’5‘2 
2+( «/-C+K2T )^*l)*t.) 

#, = ( ( 3.-3ui'!Mi) « ( L A ’•.’3 + L M-;:W ) =?C ) / ( 2 . ( G A ‘-iM A-1 . ) ) 

G 1 C J j» I ) = C 3 «N 5 T 3 •■? ( r . T ( o A ii '• A — 1 t J L A M ,'i 1 + L A I'l 'i 3 + L A M ,'i A ) 

G '• 2 ( J ^ I ) = (. 3 n 5 I 3 =F t 2 . V ( u ; A-1 . ) f L A i ir. i V u + L A ^ .1 3 

1(c + C-K1T) + La1'*Avcj-C’fmT)) 

G('3( J» I ) =C:N^T3’i ( 2.* I aA-;,‘iA-l. ) ^ L AM 1 ^ V + L ^ M.'l 3» 

1( v+C=s^.\2T ) + LA,-. 1AV ( v-C=.'K2T) ) 

&^'A ( J > I ) = C j'oTi’p ( ( GAr A-i . ) -^L AK.M=f‘ ( J'=U+ ) + .tJ^L Ai'l!'^3‘i‘ 

i( ( u + in =f-4=i-*-U' + C^ < 2 T ) =*‘-2 ) + . f>>i-LAM ( ( U-C=!--r<i T) =s=-1'2 
2+ ( V-C '«=K.2T ) ) +V ) 

iP(ACS(GPi{J#I)).LT.i.-;-13) GPl(Jii)=0. 

IP(A“;S(oP2(J> i))»LT«i.«"”iv() CjP2(j/I)~0t 
1 F ( A :• S ( G P 3 ( J , I ) ) . L T , i . A -1 ^/ ) C- P3 ( J , I ) = 0 . 

IF ( A>:.S (Gr'^ ( J# I J ). LT . i . E-iw ) GPA ( j, 1 ) = 0. 

Ir ( AE S{ GMi ( J> I ) ) .L T .1 . 7 = 1.) > C-M( Ji I ) =u, 

I F ( A E 5 { G “ 2 ( j .» 1 ) ) . L T • i . c - i 0 ) t: ' t: ( J # 1 ) = U . 

IF ( Ac S (G’m 0 # I ) ) . LT . 1 . E-IG) Gi'»3 ( J> I ) = 0. 

IF ( A^S( G.MA (.j, I ) ) ,LT .1 .i-iO ) bl-.^ ( J n ) . 

100 CCNTINU5 
PtTU'; N 
END 


SLBkCUTINc CG.MFFP (XP, NPl^ MPli FPl^FPi> FP3,FP^i FNl,FPt2jiFM3/Fh'^, 
13^TALDP^?#H^Flx>F2X^F3x#F'tX^LtLTAX) 

C CG.MPLT6 Hr ?il V n I VE:s Im X-3i^FCTIJK 

0IM£;,SIj'. XPl AG)i TAiJDP( 4C ),f>(-»G)»H(^C) » 

lFPl(‘t0>l^)>F^2(A0>lA )>rP5(A(.^ lA)>F?A(AC#lA)ji 

2F;ilt ) J F ‘1 2(^C# ) J F.M3 ( AOi I', ) A ( AC# 1^) f 

3FiX(TU#l^)#r3<(AU#lA)#r3X(A0#lA)#F^K(AC#iA) 

00 ICG J = !#'•? i 

CALL SPLEXFMXP,FPl(l#jnFPA,FPs>NPl#5#TA'J0P.. P»H,AlPHA) 

IFLAG=1 

CALL EVALF(K3#fPl(l#J).NPl#P,TAt0P#P#H#ALPHA#FiX#DEL1AX#IFLAG#J) 
CALL SPLtXP(XP#FXl{i#J)#FPA#FPG#iNPl»«»TAUuP>?#H#ALPHA) 

IFLAG=2 

CALL EVALF »FiMi (1#J ) ».NPi# B# TAUOP# P# H# ALPHA# FiX#DELTAX# I FLAG# J ) 
CALL SPLEXP( <P#FP2(1#J)#FPA# FPb#NPl# B#TaUDP# P#H» ALPHA) 

IFLAG=1 
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CmU EVALF ( UJ )/:jPl,b,TAUDP»P^H> ALPHA,F2X#bELTAX» iFLAG, J) 

Call SPLrX ?( < P,r.'E( 1# J ) » ^ P Ai f ?L / I.P i # B # T AUD F » PfH, ALPHA) 

1 P L AG“ 2 

CALL E^ALF(X3>P.'2(i>j)#HPl>ci#TAUDP#P»H>ALPHA»F2X»uELTAX»iFLAb#J) 
Call i?Lc^P(XP^rr'3(i>J)#rPAfFPr>MPi»b*lAU0P>P>H#ALPHA) 

I F L A < j » 1 

Call c.'ALP<xP»FP3(l/j)# <Pl#fc>TAU'JP#P»H>ALPHA»F3X>tJELTAX#[FLA&^J) 

CALL S^LEaP(X P>r'’'5(jL^j)#rPA#FFc^NPl»b#TAU0P^P#H^ALPHA) 

lFLAC-«2 

CALL EVALF(x‘--,Fy.Ml,J),:i?i,K,TALOP#P^H^ALFnA»F3X#DELTAX,IFLAG#J) 
CALL SPLt^ P{ \ P,FPA( 1, j) , FPa,pPl-, iNPl^ t.# T A JDP# PjH> ALPHA) 

IFL4G=i 

Call Ev'ALFCX-’fFr^t^iJ)# IPl^.i^THLCP^P^HiALPHA^FHX^LELTAX^IFuAb^J) 
CALL :-LE«P(/P>F 'AriiJi^r-^A^FPl.^tPi^D^T AUDP# P ;»H> ALP HA) 

IFLAC- = 2 

Call FVALF(X?^F.'^ll»*J)^tPl,**lfTALUF^P>H^ALPHA>F■^X>DELTAA>IFLAG#J) 
ICO C L T 1 •'( J E 
'■ c r u ' ‘i 
t.KO 


SL 3 :.jT i N E C : -0 - ( Y F ^ ‘.p i ^ .‘1 P 1 ^ tP 1 # CP 2 . G P 3 r &P A > Gf-'i 1 , GM 2, 3 # GM # 

13>TAL3P>P*r'»jlY#>j2Y>«oj('»oi'f»CtLTAY) 

C Co.’^^lTE JekI/ATIVcS I'i Y-3I-!tCTICH 

: i ••1 E- 3 I Of. Y P ( i 1 ) # 1 ( AC ) , T A JGp ( ‘tC ) , P ( A G ) , H ( A C ) , 

2Gi'’ii(i^f^»-.')^o'l2(l^#AL)^j'‘'3(lS*AL)>GfiA{l^#AG)^ 
3GiY(‘’Jj*l^)#G2Yf‘*-'>l' )^oAT (Ai^lA )^GtYI‘tCfiA) 

DO 1 C J I = i .» NF 1 

CALL S?LE> P ( YP,CP1( I ) »GPA,GPE^ MPii T AOOP, PiH, ALPHA ) 

I F L A o = 1 

CALL EVALG ( Y^ ,GP1 (1» I ) » ;!Pi> ti? TAUDP, P, H> ALPHAS G1 Y>DE LTAY» iFLAG# I) 
CALL S^L£XP(Y^,G'-’i(l^l ), G P A , bP o 1 » T AUO P ^ P ^ H> ALPHA) 

1FLmG=2 

Call EvALG(YP#G’ 1 (l^ i) . -iPl»b^ TAUDP,P^H,ALPHA>GiY#DELTAY>IFLAGiI) 
CALL S^LEX^CYP^oPid^D^GPA^GPF^MPl.. b>T AUDP# P>H/ ALPHA) 

I F L A C- a 1 

Call EVALb(Y?,GP2(l»i)frlPi,fi,TAuDP,P,h, ALPHA»G2Y>0ELTAY,IFLAG#1) 
CALL 3PLE> Pd P^ b'-2U> I ) >GPA,bPr''# MPI > D# T AUDP# P>H^ ALPHA) 

IFLAG=2 

Call EVALb( YP, uHi (i » 1) . -IF b/ T a UDP^ Pi H» ALPHAiG2YiDELTAYiIFLAGiI) 
CALL S = LEX^( ),u?A,GPbiH.Pli£iTAuDPiPiHi ALPHA) 

i F L •* V? a 1 

C^iLL EVALG(Y-^iC-P:'(iiI)»i'. Pii'.-,iTALiDPiPiH»ALPHAiG3YiDELTAY»IFLAGiI) 
CALL SPLEXP ( Y^iG'd ( li I ) , G ? A j G P h i •'IP I i d # T AUD P » P ; H » ALPHA) 

I F L A G = 2 

CALL EVALG ( YF iGPo { ii i ) iP.Plidi TALGPiPiHi ALPHAi G3YiDELT AYi IFLAGi I ) 
CALL SDLE> °U Pi GP A ( 1, I ) iOPAi GPGi HPli EiTA'JCPi PiHi ALPHA) 

IrL AG=1 

CALL EVALG(YP.GPA ?li DiP.Pli'.iiTACOPiPiHiALPhAiG'tYiDELTAYiiFLAGi I) 
CALL SFL;:XP(Y^io‘n(iii)ioPAiGPciMPliBiTAUDPiPiHiALPHA) 

IF LAG =2 

v,ALL E w'ALG ( Y-’♦G^.‘t (1, 1 ). HFl, Bi T A UDP, Pi Hi ALPHAiG<VYiDE LT A Yi IF LAGi I ) 
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loo cc’.n\uc 

K c T J- ^ 
t.NO 


e',0PYC C.P1> ‘ir 1# M^.F # OAfl'l A# i)ENST> nMNTi"l#Ni'1Nr-|> fcNRGY^ SP ) 
C ♦♦♦ EhPJACE iuUNO&^Y C:-f.Ll riu\s 

f £ AL '-r.p# . T'M ‘tO, 1*1 ) # ‘SO, ) 

ui‘"6‘ m:., oe'.st (;o, i«s ) , b.NROYt At, 1^ ) , sp{ ^0) 

|'. = NP 1-i 

pi;m' = i. / ( 1 \r- viM ) 

£ I F f 5 + 1 • / ( 'L' A 'I ( G A '1 '1 A T 1 • ) f'i I N F M I N F ) 

C iMtT 

uO iC J = i,"'Pl 
krij=L’t <jT(i,J) 
u= 0M‘.T‘M1# J )/?h3 

V = i\ ‘ . T '* ( 1 , J ) / -^ p C 

P = ( GA.’'’iA-i . ) V ( E:.p GY ( i, J ) ~. : » ( I. + ) *FHJ ) 

C S J 0 = A •3 S ( G A '1 ‘ i A P / P t J ) 

C = 5 j T ( C o G ) 

C r h OP = 1 . + ( . b 0/ C ) - ( 1 , -o ) <- ( . t / C S CD ) ’<' ( P- P I U F ) 

knClP = i , 

C OP=»bT(l» + O' )+(•!; /(''r;L-<'G))v{PI Is F“p) 

V P = 0 . 

C PP = . ( 1 .-J ) + . ( P riF + P ) 

PF = p + 1 « ~ij ) 

Oti'iST (1>J )=^.~'JP 
F’l-.NT -’(1,0 ) =Pn.jPvOP 
Ur.NTrC 1> J ) = rnOP=!'VP 

E.\RGY{l,J)=pJ/(GA.-t.-'A-l.) + .l^+(UP’»=LIP+\/pt\/P)<'PHjP 
1 C C u N T 1 -s U E 
C IlLTLET 

OU 2v J = l,.iPi 
K'HO = DENST{f.Pl I J ) 

U = MM,'iT i(.^*!Pi, J )/‘'H0 

V = N'-.M‘"{ NPl, J 

P = (GA <'u-i . ) V (r.; =.GY ((sPl, J )-. b=<= ( U?U+ VH'kHu ) 

CSO J = A6S ( G A. ■-.•I A^P / PHO ) 

C = SCr‘T( CSvC) 

C r;H•0P = 5HJ■^ ( .5-krC/C ) - (U-1. ) + ( . b/CSOL))^ (P I\F“P ) 

Fr>jP = PHj+(Pi'.F-F ) / C3 Cj 
C uP=.5-(.j + i.) + {.t. / {-’H^vOJ^CP-PINF) 

L'P*0+ ( P-PINF ) / (Fr-!CTC ) 

V p s v/ 

C PP=.i'=«=Rr!OxC«( U-1. ) + .5«{ P+PINF ) 

PP = P1;‘:F 

L'£NST<\P1> J ) = RHOP 
F-rNT,'' ( ;,?i, J ) = 5 hCP« jf 
NP,NT^ (NPi, J ) = -V:-PtVP 

ENKGY (NPi, J ) = PP/ ( GAY..YA-1. ) + . ( UP*U? <-VP«VP )-PHOP 

20 CONT I \'JE 
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C ♦♦♦ wall 

cj jc i*z$u 

r-.H0«C.eN5T( I» -iPl ) 

1 NTM ( I# .“f*! U».‘VJ 

V « N ••! M 1 { I » t'W 1 ) / r :1 C 

P«CGAim-l.)<'(£? -IGY( 1# ■»Pl)-.:*(b*iJ + V«\/)»^hO) 
CiQ.')»&^S (G /-.HLi ) 

C«S T (C3wD) 
i<hCP=(»-<0+(*^Hj/C) 

C Rr3P = P"'G 

L'P =U 

V P = 0 . 

ppsp + KHjl'C’t'V 
C Pr=p 

0E‘bT( I, '-P1) = PHl ? 

^ N T f. ( i » .'i P i ) = f' u P * U P 
n.\;nTP. (l,;':Pl) = -:hCP«vP 

( I, ^'Pl ) = Pi' / ( GA-'-'iA-l , ) + . bv(uP'«‘!JP+VF*\/P)+PHGP 
3C CCATI-',je 
C LC<'E'' WALL 

uu 1 = 2 # 

KhJ = L. E'JS T ( I # 1 ) 

L = .'-;MNT i( I# 1) / ^.hD 

V = N'-NT-'!( I>1 )/PHG 

P = (GA.'i.SA-l. ( E.,'''GY ( I # i )-. i>«(u=^U + V«V )*Fhl 3 ) 
CSQ&=AoS(GAi. lA’^P/'^riC) 

c = so; T ( c SGc ) 

ALPHA = Ar;..‘, (SP ( I ) ) 

^hQP = P.H J-( FHJ/C )■«=( -A li;( ALPHA) ■>U + CC)S ( ALPHA )*V) 

C Kr<JP = ‘<HJ 

UP = C GS ( alpha ) <=<= 2 ^ L' + S i.U alpha )=«^C 6 S UL PH A 
VF = S 1 N( ALPHA) ’«=CLJ ( ALPHA) ’f‘J + 5 I (,( ALPhAJ 
PP = P-i>H J=i=C=F (-3 IH{ ALPHA) Yu + CuS (ALPHA )>«^\/) 

C PP = P 

DENS! ( I# 1 )= 9 HGP 
P.HnT.'v ( I# i ) =PH JP*>‘'UP 
N i''i ''I T t''i ( I # 1 ) = P H 0 P ^ V ? 

ENPGV ( I# 1 ) = PA / (G Ai' .-lA-l . ) + . p=(=aP*UP + VP*VP)»KHOP 
AO C C' 'I ! ' . 4 U E 

NH.NTHC(Pl>i) = 0 , 

(HPli.'lPl ) = C. 

RE rUF N 
ENO 


C 

c 

C 

c: 

C =^=F» 
c 

c »=«==!= 

c * » T 
C ^ ^ 


EXP5PL: E. J. YCCAFTIN 10/60 


PUNCTID'C CG'vSTPuCTS THc IMERPGLATOkY EXPGHENTIAL SPLINE 

TO A SET 3P POINTS IN THE PLANE WITH NONQ TON 1 C AL L Y 
INCkEASING AiSCISSAE USING SPECIFIED DERIVATIVE 
EKO CCNuUTUNS 
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c 

c 

c 

c 

c 


♦♦♦ 


iitFEi^ENCc: 


b. J. MCCAkTIN# NUf^ERlCAL C0(1>>UT AT ION OF 
exr/CNtMlAL t)PLll.uS» COU-^ANT M.ATrieMATICS 
ASD CC.-lPUTiOG LAbCKATOkYf OCTOBER I960 


DcSCUPTION OF CALLII.vi ARGUMENTS: 


c 

♦ ♦♦ 

X 

m 

AESCISSAE 

c 


F 

m 

(J f< 0 1 1 • A T t S 

c 

♦♦♦ 

FPA 

m 

LEFT ha ,0 u£HVATI\fE END CONDITION 

c 

♦ ♦♦ 

FPB 

m 

PiGnT HA-.J OEPIVaTIVL END CONDITION 

c 


NPl 

a 

N'UMbEP Ur jRDErLL (’AIR 5 OF DATA 

c 


b 

T 

PlGriT HA iU SIDE np SPLINE EQUATIONS 

c 

!F ♦ A 

TAUDP 

a 

SLLUTICN OF bPLII.c cuUaTUNS 

c 

««« 

P 

s 

EXPONEf,TiAL -SPLlliE TuNSiLIl PARAiMHTcPS 

c 

♦ ♦ 

H 

a 

CELT A X 

c 


ALPHA 

a 

SCALING PAkAMETEP 


C 


5 i/ 3 ROuTI'>c t)'^PSPL(^>^f^PA#FPH/^Pl>ti»TALOP#P#H#ALPhA) 

01 VEf.SIjN X(I)>r (£),:,(.) >T^UOF(i),P (1)^ rid) 

DIMENSION t ( 1 00 ) > 0 1 Ab ( i 00 ) > I L IP L (1 - 3 ) # 1 L IiMU aOO ) » 0 (100 ) » U ( 1 OC ) 
real LAM'iAf' 


C 

c Initialization 
c 

I0UT=0 

IPLDT=0 

CuSSTl»i./6. 

C0NST2=l./3. 

CONST3 = “7t / cj . 

CCNSTAx 21 ./ 2 S 2 C. 

CC NiT5 = -l./15. 

CIjNS1o = 2./313. 

.vl = NPl-l 

EPS=l.t-6 

0MEGA=1. 

ETA*.C7 
Si3flA = 100. 

ALPHA»1 . 

ITMAX=5 

SCALL=2./( X( NP1)-X(] )} 

IC0UNT*0 

DO ^ I » 1 > N 

HII) = X( I + D-X ( 1 ) 

A ht I)=SC alE*H( I ) 

Cu 5 I=1#N 
5 P( 1) = 0. 

C 

C uEFlNE i'S 

C ^ 

5(l)=(F(2)“F(l))/H(l)-rpA/SCALE 
IF( N.EO,i) 6'j TO 11 
DO 10 I=2^N 

10 om = (F( I+1)-Ftl) ) /H( i)-(F(I)-M I-l) )/K(I-l) 

11 3(NP1)*FPE/SC ALt“(F(NPi)-F(N) )/H(NI 
C *** 
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C L;£T£rMI',E i=.TEM\LS SHCjULC, UL- MT WITH 

C LlNc S£3'’icSTZ At'i r^lC'i I,'i7tr\/ALS 'jHGJlO bt 

C FiT ^IFH c A^j'.-.'.nAL iFLiSLb 

C *** < » .(l/.-c- 3? tXP'jf.Ef.TIAL SPLINE INTERVALS 

C *♦* ILlML(l) = LEt-T r.ANJ ENUP3INT Ut I Th SPLl-sE IiNTCRVAL 

C ILliJ(l) * ^I6HT hMiO ENDPOINT uF ITH SPLINE INTERVAL 

C 

R«0 
I L «1 

lA CuNFiNUE 

uC I»IL»N 
Tcr',P=3( I )^ii( I + l) 

IF(Tc'iP»cw«G») 0^ TD 2 j 

:< = r' + 1 

IlI.-,L (K) = I 

L<w Ic J*1>N 

Tc ■;? = = ( J + 1 ) 

iF(TL*iR«.t*0«) OG TL' ij 

U = j 

GC Tl 29 



15 

Ir(J.f.E.'!) G3 

Tu 

lb 



iuI.'1u(<) =.‘. + i 





GO T3 30 




16 

CuNTI.nUE 




20 

CuNT iM'E 





G u 10 30 




29 

IL = J 





GO TO lA 




30 

CCNTISUE 





Ihl'StCWcu) G u 

TC 

5‘i 

c 





c 


SET UP S L I is E 

E 00 AT I ON 3 

c 






3A 

DINi»0. 




ICJUNT=ICj'JNT + 1 
Du I=1>N 
P1=P(I) 

Hi «H( I ) 

PHI = PI^HI • 

Pi2=PI’S'PI 

IF (Pii-I.GT.ET A) GO TJ 
C Use PuWtR SG^i-S RcPKEiESTATIGN 

PI2HI? = ?I2-'hI^Hi 
PI<»HlA*PiZ<iI2^PI2:-lI2 

E ( I ) = ( 1. +C3ioT3^^PI2H12 + CuNSTAtPIitHU )’)'Hl>i'CCiNSTi 
Di = ( 1 . + C JN. >T3 4^PIZ HlZ + CGNSTb-^-P lAhlA) *HI*CQNST2 
D1 AG( 1 ) = jiNl+3i 
GO TC AO 

c USE hY^EPfC-L 10 Functions 

39 C.SBY^I*! ./^I 

SI = SINH( Plfil ) 

CI*COSH(PinI) 

PIBY5I=P1/SI 

E(I) = (GN3THi-'^IpYSI)/Pl2 
Di = (PI5T'5:-CI-QNi^YHI)/PI2 
DI AGl I ) = 01,11+ DI 
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t J o 


1 


<to oi.n*Di 

L-ur,(t ?1 )»0I 
I: ( NP 1 ) *0 . 

C ♦♦♦ 

C ALT=> SPlIUH EJLATIDf.i 

C 

IP(.i(i) .Ec,0. ) L(1)=C. 

IF(M.Ci.i) G’J TC 

u'J *t3 I®2>* 

lF(AtI)#‘ic»0«) ‘3w Tu '^3 
c( I-l )»U. 

E ( I) = 0 . 

^5 C w *T i S'.'r 

A 6 IE ( '. t ) # £ 0 . vj». ) £((.)= Jt 

C * ♦ 

C iscLVc SPLI'»£ E'jbATiJi’-a (iEE AhLotRb,» .'ilLSCN AND wALSh) 

C 

? t*. * 3 i A G ( 1 ) 

C'( 1 ) =“E ( 1) / PK 
u(l)=3(l)/P^ 

C u 4 9 K K = ? # I P 1 

Pr<>=i: ( '<■<.“1 ) + 3iA^Jl^K) 

C, ( •<. '< ) = - E ( r'* < ) / P •'< 

U (K \ ) = ( J K<)-£ (r.P-l ) / pK 

TA'JDP( NPl) =U( ;.P1) 

CO 51 L=1#N 
KK = ->!P 1-L 

bl TA'JDP(i\<)"-0(P<)vrA'jCF (<^ + i)-^Li{(vK) 

r. >><=<= 

C <==*==? Fl 3T EXP3‘-ci«TIAL SPtl lE 
C 

5A CO.'^JT lOUE 

1F(<.E0.0) GJ TO 99 
IF(ICOJ'ir«GE»ITI*AX) GO TO ?. 330 

LPOATE P'S 

IFLAG=C 
CD 80 I=1>K 
I L = I L ru ( I ) 

IL=1LI''.U(1 ) 

Tt‘1P=TA'J0P( IL ID 
1 F ( T t .'I ? • G E . G • ) G T 0 o A 
C w ^ s ^ T A i. C P < G AT LEFT h A G j L f t D P D 1 1** T 
i F L **< o = 1 

La:^ 3A^= A AES ( - ( U) )> GUG( IL ) =«‘A-^S ( TAUOP ( IL) ) )/ABS( TAU DP( iL + 1) ) 

PULL A = 1 ,y SJ-<T (LAV H ( IL ) ) 

PULLA=A':a^1(PT1lL A^P(iL) ) 

KIDsPdD+J.'EC-A^f^CPTDDA-PdL)) 

6 A ILP1 = IL + 1 
UM-a^u-1 

1F( lL,'n.LT , IL ?1) G^ Tj 70 
CO c ? J = I L p i d L i 
1 F ( T A L'D? ( J ) . E . L • ) GC TJ 3 0 
C TAJJP = 0 AT A\ 1?. TERIJ'k POINT 

If LAG=1 
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1 


P(J)«?(j)+EPS 
6C TC 6:1 
66 TciP=TAJDP( 

IF< Tir:'’P.'jT.O. ) G2 TC, 6=1 
C d*TA'jD?<0 AT Al', K.TckIjP POINT 

IFLAG-1’ 

LAy.»A5.«AiAXl(ABS(3(J))#0lAG(J)^A3S(TA'JCP{J))) 

1/ (2. ^A’-AXl ( A*, 3 ( TAUvP ( J-1 ) ) j» A? S (TAUOP i J + 1 ) ) ) ) 

? T I L •: A= 1 , / i : ■< T ( L A Ar, ♦ '1 ( J-1 ) ) 

PTILLAsA-1A;iX(PT 1L JA^P(J-l) ) 

P( J-1 ) = p( J-1 J +0 .,lGAv( PT IL0A-P( J-1) ) 
r T I L : A = 1 . / 3^ - T ( L A • •: A- « U j ) ) 

P T I L :• A * A •: A A 1 { ? T i L D A , P ( J ) ) 

P ( J ) = P ( J ) +G •',= G Av { p T 1 1. i< A-P ( J ) ) 

65 C.j'<TlNUE 

7C T= ■ip = 7-ij:.? (I j)^r ( ij) 

I r ( T £ .•■| P • o : • 0 • ) G .. T l, o J 
C svTAll»<0 at PlGr'T HAGJ tNCHGINT 

I r L A G = 1 

L A -!-jAP = AMAXl ( A { - (lu )> G'l AG( K )*AdS (TAUJP ( I'J) ) ) / A B S ( T AUDP ( lUMl } ) 

P T I L 0 A = 1 . / 5 r ( L A il ;• A r « H I I U.'i 1 ) ) 

PT Il: a= A' AX'K ='TlLDAi P( IJ:1) ) 

P( I-J-'1)=P( I j-‘.i)+;..-'£GAr(PTlLDA-P(IUiU ) ) 

80 CuNTiNuE 
C « 

C CrECP PO.N -ixrPAN£CU3 I <hLECTlON POT'ITS 

IF ( IFLAG.fcOsC ) GO ID 9^ 

C «>F<= 

0 SCALE AdSCiSSAE 

C 

Xi'U = 0 . 

DD 93 I»1^N 

93 xi'-'j»a.';axj (xp.u^pd )=i'ri( I ) ) 

ALPHAC«A,NAX1( XfX / 3 I oNA, 1 . ) 

alPha»alpha»alphac 

DO 9A I«l,\ 

H( I ) *H(I )/ ALPHAC 
9A c( I) = d(I)»ALP.*AC 

b(NPl)=D(.',Pi )«ALPHAC 
GO T C 3 ^ 

C ♦ 

C NO EXThANECoS INFLECTION POINTS 

C 

99 C C S T i N U c 
oO TO 3000 

C ♦♦♦ 

C ■lAXINU'^. NuMGcP Or ITEtsATlQNS EXCEEDED 

C 

E;000 CONTINUE 
3000 RlTUPiN 
E.nD 
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o <*> o 


c ♦♦♦ 

C 


c 


cSEVal: 3, 

J. 

.'''CCA.'TIU lO/bO 

c 





c 

♦ ♦♦ 




c 


FUNCTlO’-i: EVALUATES THE EXPONENTIAL SPLINE 

c 

4>4<* 




c 


OtSCF IPTION 

OF CALLING AkGLPENTs: 

c 


X 

3 

Ai jCI bS^E 

c 

♦ » * 

F 

S 

Gr'OlNATti 

c 


NPl 

S 

NLS-3EP JF J^D^-.r-EO PAl-'S CF DATA 

u 


b 

S 

P1GH7 hand ^IDE C'F :>PLli';E ECoATlONS 

c 


TAJ OP 

5 

SGLUTIw. uF iPLPt. EGJATiJiS 

c 


P 

S 

EXPu.’ ti.riAL bPLlNfc TETbl'CN PAKAHtfEPS 

c 

♦ » A 

h 

a 

delta X 

c 

V * ♦: 

X3 A h 

r 

AnbCISbA uF lVALuAVIJN 

c 

V ^ ^ 

TAU2AR 

r 

C“,rii,Ar= JF Ev ALL AT I UN 

c 

>F 

TAG=.P 

s 

Li."' i V A T 1 V E j F t V A L j M 1 I L i ) 

c 


ALPHA 

s 

SCALING (»Ar.A-\ETLK 

c 


S L 3 C' U T I N c 

£ 1) 

cVAl(*. iFpNPlpLipTALuPpP.phpXbAK»TAUiiAP#TAU6Pj>TAuiiPP 


ALPHA) 

X(i),F(l ),f U?^TA‘JL P(l) pP(i )>H(i) 

C 

C INITlALIZATi:*) 

C 

CuNSTl=l ./D. 

CL oTZ"!. /5. 

CuiNiT ^”“7 t ! & i * 

CC '>l5TA = 3i . /252D. 

CCNiT3*“l./l3t 
CCMSTc = 2W31?. 

CDSST7=-7./195. 

CCNST6=-,05 
CDNST9=1./ 120, 

N='JP1-1 

bTA=.C7 

SCAl£= 2./«X( ir>l)-X(l) ) 

C 

C OETtSi^.INE INTErJVAL 

C **♦ 

Du 10 j = : » N 
i = j 

if(X“A-^.lt , x( j+i) ) GC ro 11 

10 CCNTINUE 

♦ DET£r'ir;£ TY^£ OF FIT 

11 TE.i?*3{ I )^=3(!+1) 

IFdtYP.NL .0. ) GC TG 20 

C FIT WITH LINEAR FlSCTIJN 

TAUBaR^(F( I )»( <l : + a )- ^jAk)+F ( I-rl)*{ X3AF-X(I) ) ) / (ri( D + ALPHA) 
TAJ3AR = iCALt‘«'TALjA'^ 

TA'J3P = ( F { I + l )-F ( n ) / (h( 1 ) *ALFHA) 

TAU3?=SCALE^TAU3P 
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c 


c 


c 


T^’J-iPP* J. 

TsPPP»0. 

G u T u 30 

Pir rlJ.-i E X? 3‘iSf. T I.iL iPLI'lE 
20 ,U»SC ALE^!! ;^( 1 + 1 ) -/ •> aP ) / AL PHA 
X 2 «jCAU‘Ma 3 A‘<~MIM/ALPHA 
Pi2 = 3(l)>i=P(I) 

PHI = P( I)*n( I ) 

IF (PIWI .GT.E r&) Gj Tu 25 
♦ Lie Fjnc*' Gu'^Icw r4PP*c5E.»r**TIGN 
Plan: 2*p :r !«■> ir-i 
FiAtHit. = PI£riI2*PI2Hl2 
J <12 = > I’U 
X(i 2 »/ 2 ^X 2 
AxA“Al 2 TXi 2 


» 2 ^=’ 22 ^a 22 
u;,3H12»i . / (-<( I KH ( I ) ) 

TEP : 1= i . + C J . ST3>?r i / r-id'*-Cu''^S TA'-i-P I ArllA 
T £ =* •‘,2 = 0 GfiS T 1 T P 12- .V oh 1 2 + L JNiT P 1 P 1 2h 1 2 
TtP *, j = ( 0:','.5T3*i:.>. jhl2 + c^.‘ii r7«PI2 ) 12 

TA'JsA-^=(l(I)-Ai + F(l-H)<=<2)/nl I ) -C 'Ji’i S T i=«‘ H ( I) 
l<AlvrA^3P(i)*{Tt'/l + TLU'iV)<12-HcKMj4XlA) + 
2/2=5=!.' uTM l + i)N= ( T“' ':•^r •' •’.2'«=X22-HEK,'13>>X2A) ) 


Ti'J-iP = (P ( I +1 )-F { 1 ) ) /h( i)-C:-.iTl=i=H( I )« 
l(TAJc?(I + l)= 5 =(TEr>'i + 2 .^)!TcF'-u=«=x 22 -«- 5 .=!'Th!<nJ=!=X 2 -!»)“ 
2 TAJ 3 P(I)=f(TE'l-M + i.>i-T,P^ 2 =i‘Xi 2 + 5 .’«'TER> 13 >XlA)) 




TAw'j»- = 5C<iLEA‘TiL-rP/ALf'il-i 

TaU}PP = ( SC AL J / AL .-'tA ) AviAC3NSTl=>=H( I >’<' ( TAOOP ( n^Xl* (b.<=TERin2 + 20. + TER 
l,‘=12=rXl2)~rA,jJ-^(i‘fi}'^‘Xi:‘i'{b»=^!'. ■f'i2 + 20»^TEFr'13x^X22)) 

X- pp,> = - ( 5C ALE / ALFi’A ) -^ V j «oJ‘!Sl 1-rh { I ) ■!« ( 6. «T AUDP ( I ) ^= ( TEP.M2 + 


liO.* Ft - -IS-Xi 2 )■^t. tTALJP ( Ui)^ (TeHi' 12 -*- 10 .*TERrt 3 «X 22 ) ) 
GO Iv 3J 

use rYPEPcdLlC F-JNCTIj‘,5 


25 GENJ>^ = PI2»SI ) 

TAUiAK=(TAUj,-^(I)=i=SIi‘':h('^(l)<Xi)-HAU0P(I+l)><'SiNH(P(I)+X2)) /OENOil 
1 4 ( ( r { i ) - T AlO o ( I ) / P I 2 ) ^=X 1 + ( P ( I + 1 ) -T A J G P ( I + l ) / P 1 2 ) *X2 ) /H ( I) 

T AUbP = ( T AL DP { I4i ) X^CGS.-K P ( I )4\2 )-TAoDP m4CCSH(P(I)«Xin»PlI ) /DENQH 
1 4 ( F ( i + 1 ) -F U ) 4 ( T A L ( 1 ) -T *.L'GP ( I 4 1 ) ) / P 1 2 ) /H < I ) 


TA03P = SCALc^r AUpP/aLP-iA 

TAU3PP=(SCALE“P(I) / AL^^HA) =5=t-2/GtNOht (TALOP(l4l)-f=SINH(P(I)*X2)4TAUOP 
1 ( 1 ) I‘.H( P( I ) =5=n) ) 

TbPP^=( SC AL6=5=P ( i) / ALPr|A)*-5/rthUiS«(TAUCP( 1 4 1 ) =4=C OSH ( P ( I ) ♦ X2 ) 
1-TAJD?( I )fC3S-(‘‘(l)-Xi) ) 

30 CuNTiNJE 
K c I L • N 
b.\D 


SL 3 R-LiTlNE EOALF(X»FjS,-> 1 ^ 3 ^Tal:P>P>M>ALPHa>F>#OELTA>IFLAG/L) 
iH -tE\SI ON X( i ) »F (1 ), / (1 TAUDM 1 )> Pi 1 )^H(1 )# FP lA) 

CO -t-^ON C:.nST 1 v:L.NSTtiCu.MST3/CL'NSTA,CGNST5» CONS 16, CONST? ^CONSTa^CON 
iST^y 

C ^ 

C ^4=^ IMTl alIZaTION 
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n r-i ry 


C 


£TA*.07 

SCALt*2./(Ai *P1)-MD) 

DC ICO K»l#UPi 
AdAR«;< (K ) 

C 

C '•'*♦ DtTt^MIiNE INTE»^VAL 

C ♦♦♦ 

IF(I.GE.NPl/2 > 1=1-1 
IFU.EO.NPl) I = N 
C 

C OBTE/^'IINE TYPE CF FIT 

C V** 

11 Tc*1P = Ej( 1)'P3( I + l ) 

iFdt'i^ .:;c.o. ) GO Tj 20 

c Fir ^iH li-,:a^ f'j-.ctijn 

T A J 3 F = { F ( 1 + 1) -r ( 1 ) ) / ( H ( I ) « ^ L P H A ) 

TA'JiH = 5CALE=*‘TALEP 
Gl Tl. 31 

C *** FIT nllH t xP Jnc.'.T I AL SPLIiit 
20 *. 1 = SCALE"(A{ I+l)-;. 'A‘')/ALpr-!A 
X2 = 5C ALE’}' Uu AA-y U ) ) / AuPdA 
P i 2 = P ( 1 ) •■}' P ( I ) 

PIHI=Pl 1 ) -H( I) 

IF(PlnI.3T.cTA) oO TL 2p 
C UiE ?G<»trs "iE-<lLb' •suPrcjcOTATICf^ 

P12Hl2 = PIhi=rPIrI 

PUMl‘t=PI2 

X12= Y1*.<1 

X22=a2-a2 

X1*V= X12-X12 

X2A = x22'-i=y£:2 

CN3HI2 = 1 . / (H(I )-H ( 1) ) 

Tc P *5 i = 1 . +C GN i T 3’^ P I 2h 1 2 + C Jo S T I AH 1 4 

Tt ^ -12 = 0 j.^}CTl¥PI2-^:.3hi2 + C Jro-T7^ PI2>!'PI2rl3 
TER.15 = (Cu'oTAvJ ^:Hl2 + CJr;ST•^-PI2 ) ^PI2 
TAU:>P = (r ( i+1 >-F a ) ) / H( I )-CUiiSTi=}'H( 
l(TA'JCP(I+i)*(T£K”''l + 3,’!--TE4i2’F,y22 + S),«TtPP3’PX24)- 
2TAJor{i)’t’tTt3il + p.=?Tfco;2’}=Xi2 + !;.’}'T£s4 3’i’Xi4)) 

TA U3 P = SC AL E ’}' ri'JrP/ ALPHA 
G'J TO 3J 

C ’!'♦=}= USE rYPE^3-JLrC ForsCTlj,S 
2 5> Dc J:i^=3I2vS1 I) ) 

TA j-,r = ( TAuOP (1 + i ) rO.'.'H ( P { I ) vy 2 )-TAUOP ( I )‘fC JSH (P { i)«Xi ) )'}'P ( I ) / DEi'IOM 
1+(F(I+1)-F (U + (T n-rALoP ii + i) )/Pi2)/H( i) 

TAU3P = SCAL£^TAU::P/ALP'iA 

30 CC'iTlNJt 

Ir(IFLAG«E>J»i) FP('<»L) = TAJcP 
IF( IFLaG. 60.2 ) FP (K,L ) =FP (K,U+TAUbP 
C GO TC 100 

31 IF (r^.EO. 1. JPv. EC .MPl ) GU TO luO 
X»AP = n(-0 + .S»JtLTA 

LETEnI^'INE INTERVAL 

^>t=* 
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1*K 




C w# 

C DcTE-MI 4C TY»E UF FIT 

C 

111 TE'^iP = 3(l 

IF( TE-^P-Nco. ) G: Tj 120 
C ♦■^“0' FIT r-ITH LIN'AK FUNCTlJ'i 

TAU'j P» { r ( i+1 )-F C n / (ri( I ) 4= Air HA ) 

TA'Jr.p=SC ALE’^T A'iBP 
TA(J3?P = 0. 

GO TO iso 

C *v*. = iT r-ITH cXP3:.cMlAL SPLI.-tE 
120 *i = i:Ai.E^(<(: + i )-'"A^)/ai,pha 
A.2 = S;ALE=?(XbAP-Mi))/ALPhA 
Pi 2 = P ( I ) -P ( I ) 

PIH1 = P( I ) vH( I) 

IFCC'IHI.GT.ETA) >^0 TO 125 
C J.' S' PJ', = = ££-!ItJ! ? ”P" £ jci.TATIl N 

P12hI 2 = P IHKr> Irl 
PlArtlA=:»I2Hl2=S‘PI2hI2 
X i 2 = < 1 - ^ i 
X22 = X2* X2 
X1A=X12-X12 
A 2 A = X 2 2 A 2 2 
w .dHI 2 = 1 . / (m( I )-H ( 1 ) ) 

TE? 11 = 1 . +•: :.\iT 3vr I 2nl2 + CJ:'^iT^Ap IAHIA 
T t "t >'1 2 = 0 J ^ T 1 ■1' P 1 2 ~ V- ' b h I 2 + L u '« j T 7 ^ P 1 2 ^ P I 2 h i 2 
T £ P '1 3 = { C ON S T S ,;h 1 2 + 1 .. N :> T 9X-' p I 2 ) •■!' P i 2 
T A-JbP = (F ( i +1 )-F { i ) ) / h( I )-C!JNSTl«H( i ) 
l(TA.iCP( i + l)-( TLf' .H-3.-i EP:i2*V2 2 + 5,«TEPf 3*y2A)“ 

2TA'J0P ( 1 )*( TEPIl + S T^,r;r;2-X12+5. *TEk,13 + X1A) ) 

TaU 3P = 5C«LE’>'T 4t-bP/ALPilA 

TA'J3PP = ( ii. ALE / ALPHA )x= ^CGNST lvH( I )* (TAJDP ( I ) X<X 1« ( 6 . + TERM2 + 20 . «TE R 
1 1-13 »X12)"TaL'D®< 1 + 1 ) + l 6. =?T£Kfi2 + 20.l'TEPl13 + X22 ) ) 

G J T 0 1 3 0 

C USE HYPEP = 2lIC FU.nCTIJnS 

125 D£ 10:- = P i 2-5lNH{ t-l I ) I ) ) 

TAU:^P = ( TAU3P ( i*l )X:C jS.i( p ( I )X=X2)-TAUDP ( I ) +CUSH ( P ( I) *Xi ) ) *P ( I ) / DENQM 
1+ ( = ( I+l )-i- ( I ) + ( T A''OP{ i ) -1 A.-DP{ 1-^i) ) / PI2) /H( I) 

TAU?P = SCAL£^rAc’'F /ALPr^A 

Ta'JSPP = ( SL ALE - P ( I ) / ALP.1 A) ^ + 2/0EN D.'IX' { T ALOP ( I + 1 ) <“ S IN H { p ( I ) + X2)+TAUDP 
1(1)*SINH(P(I)+X1) ) 

130 Cc;NTINU£ 

EFS = utLTA + jELTAX‘Ar:, (TaJoPP) 

IF(EPS.GT..5> £PS=.5 

,IF(lrLAG.£0.i.) FP(''N^L)=rP(2^L)--LPSX=TAUeP 
IF( IPLAS. lO.£) FP (^^L) = FP( D + EPOvTAUBP 
X:iA\ = A('^)~»!?t3cL TA 

^ ^ ^ ^ 

C^**OETEP'‘Ii'i£INr£FVAL 
C *** 

I = K- 1 

C ^ ^ ♦ 

C DETF-./INE TYPE OF FIT 

C ^ V * 

2 i 1 r L ' . •» = r. ( i ) - 3 ( I + 1 ) 

ir(rr'P»Nc«0«) L’o TlJ 220 
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C FIT fITH LINcAk FU.'^CTUN 

TAUdF = (F (I -•■D-r- ( n )/ (H( I)«ALP HA) 

T A'.IB F* S C AL E ♦! AL c ? 

TAuapp«o. 

Gu Tu 230 

C FIT rlTH EXPONENTIAL SPLlNb 

220 Xl=*3CAL6^(X(I + I)-XrAK )/ alpha 
X 2 = 3CALE=«=(XbA^-> ( I) )/AlPHA 
P I2 = P ( I I’i'P (I ) 

PIHI= P( I ) ^‘l( I ) 

IF(PIHI.GT.ET A) GO Tu 225 
C USE PiOWc'^ SE'<IES ft E P P E S EN T A TI Dh, 

Pi2Hl2 = PiHl=i=-J IHI 

PIA:iIA=oi2nI2*FI2HI2 

Xl2=Xl=«^Xi 

X22* X 2>S‘ X2 

XiA=Xl2«Xi2 

a2A= ■« 22-X22 

CN3H12=1./ (H( I )’^H (I ) ) 

TcftF.l = l . +Cl'N 5 T3vP I 2HI 2 + CUNSTA»i=P I AH I ft 
TE R ’’tZ = CO'oTl^ Pi2-L.N3Hl2 + C0NST7>(-PI2«P12hI2 
TEft;-13= (CONST-) “S':-.' t:nI2•^C .;oT9«HI2)«^12 
TAO )P = ( F ( i+i )“F { I ) ) / ri{ I )“CCNST lvH( I ) ’i' 

1( TAUCP( I + l)^( FEr.,' l-t■2.^T6Kii2^^^;2 + 5.-T£Kf'3>i'X2ft)“ 

2TAU0P(I)-(TE^:'U + 2.vTt:ft"12-X12+5.=<=TeR.M3 + Xlft)) 

TAU3P = SCALE=<‘r AUcP / ALPHA 

TAU3PP = ( SC ALE/ALPHA )^=!=E=i‘C3,HSTi=i‘h( I )=X (TAJ9P ( 1 ) l?^(6.'«'T6Ri'',2 + 20.4 TER 

i 3 X 1 2 ) ~ T A 0 D P ( 1 + 1 ) - V- ^ ( 5 . 'P T E H?': 2 2 0 . T E R M 3 >«= A 2 2 ) ) 

GO TC 230 

C USE HYPERcCLiC FO’sCTlJnS 

22 5 UtN0,'-' = 3 I2+SINH(P ( I ) A ,- ( I ) ) 

TA03P=(TAuDP(l + i)*CGSri(P(I)=?>. 2)-'TAuDP(I)’>=C0SH(P{l)«Xl))*P(I)/0EN0M 
l-KF(I-H)~F(I)+(TA|.'2p(i)-TAUCP(l + i))/PI2)/H(I) 

TAUBP^SCALEtT AL'L F / ALPHA 

TAUSPP=(SCAL£^F(I)/ALPftA)’»'-2/DLN0;i’!=(TAL0P(I-t-i)=XSliNH(P(l)»X2)+TAL}0P 
1 ( I ) =!= 5 I N H ( F ( I ) - 1 ) ) 

230 CONTINUE 

tPS = nELTA*DELTA«AcS(TAJ*3PP) 

I F ( E P S « G T . . 5 ) cPS=.5 

IF(iPLAG#EO»i ) FP(.^^L)=FP(^^L)■^EPSvTAUEP 
lF{IPLAG.cv.2) PP{K>L)=FP(l<,^L)-bPS=i'TAUBP 
iOO CONTINUE 
R E T u ft N 
END 


SU3RGUTINE E'/ALG(X#t-^NP1^3>TAl. DP;P^H»ALPHA^FP>DELTA»IFLAG#L) 
OIHENSION X (i ) . P (1 ) i E (i )# TAUDP( 1 )> PCI )»H(1 ) > FP ( ftO^ 1ft ) 

CCH1GN CaNSTl>CL.NST2,C:iNST3KLl!'. STft#C0WST5,CDNST6>CLlNST7# CUNST6#CQN 
1ST9 
C 

C IMTIALIZaTICN 

0 ^ ^ ^ 

N=N? 1-1 
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!«S«MSwe3r.rr£r:i^' . ' 


£T6*.07 

5C4LE»2./(X(:JP1)-X(1) ) 

LO iUO 
X a A < * A ( K ) ■ 
c 

C ♦♦♦ DcTEi- interval 

c ♦♦♦ 

I=< 

IF( I4GE.HP1/2) 1=1-1 
IFd.Ew.NPl) I=.N 

c 

C DETE^-JNE TY^t Cr FIT 

C 

li TE1P = o( I H=3( I+l) 

IFdb.'^.P.NE.O. ) GJ TO 2 : 

C *** FIT r.lTH LINEAP FU^CinN 

TAU;3r = ( F ( I+i )-F ( I ) ) / (.i( I )^ALPH4 ) 

TAJ3F = SCAL£^T AL.'6F 
GO 7 D 3 0 

C FIT dTH caPONFnTIAL aPLINE 

2 0 Xi = 3CALfc’S=(X( I+i)->,3Ar)/AL?HA 
A2 = .bCALc^( XdAR““X( I) )/ALPrlA 
Pi2 = P ( I) rP ( I ) 
r> I H I = p ( I ) - .1 ( I ) 

IF .GT .ETA) oJ TL 25 

C U36 POrtdK Scr'IdS F t Kr ;S ENT AT I G)' 

PI2HI2 = PIhI^P IHI 

PiAHlAsKlEHId^PK'nlE 

X12=XX=4=a1 

*22=a2X=X2 

Xl^t=X12vX12 

0NBHI2=1. / (H( I) XH (1) ) 

TER;-I1 = 1 .+CC.\5T2tPlCHI^ + CGNSTA=?F I AH I 4 
T E < M 2 = C J .N S T i =!"? I 2 - 0 N r. h I 2 + C J N S T 7 P I 2 =>■= P 1 2 h 1 2 
TE K^3= (C :Ai>T8 3HI2 + C 505 T9 12 ) «p 12 
TaU 3F = (F ( I + l )-F ( 1 ) ) /H( I I ) ♦ 

l(TAu0PC + i)=»‘(TEF.;'l-^3*4=rERi?=!‘X?.2 + 5.=PTtR«3=!‘X2A)- 
2TAJ0P ( I )?( TcP-!i + 2.^TtR:-;2<=Xl2+5. »FTER'13«X14) ) 
f A 0 3 P = S C A L E T A y r p / A L P ri A 
G w* T L* 2 

C tiE mYPEREQLIC FuNCTi3='iS 

2 5 l.-E00.'' = PI2=f 5INH( P(I )=!'h( i ) ) 

TAJjF=(TAtD^(I + l)^C05n(P(IH'X2)-TAu0P(I)=«‘CQSH(P(I)*Xl))*P(i ) /DENQM 
1+ { F { I + l )-F ( I) + Cf A.. 0 P ( I )-TAUOP ( I+i) ) / P 12 ) /H( I) 




TA’J3r = SCALd^T ALcP / ALPHA 



• 

30 

COOTINJE 





IF(IFLAG«tw«l) FP(L/^)= 

TAU6P 




IF( IFLAG.E0.2 ) FP(L^K) = 

FP( L# 

K ) +TAUd? 

c 


GO TC 100 




31 

IF(K«EO« i«OP«K.cO»OPl) 

GG 70 

100 



X3AR=X(^)+»5»0ELTA 



c 





c 


OETEf'P. iNt INTEFVAL 



c 

={= 






I = K 



c 

♦ <: ^ 
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C *** CtTcr.'^lME TYPE OF FIT 

C *** 

111 TE.1P = »(I)*5(I+1) 

IF(Tt.iP.Nc.O. )• GO TC 120 
C fit with lIUEAk FUi.ClIOM 

TAU3P=(F( I+i>-F(I ))/ (H( D+ALPHA) 

TA'J5F = SC ALFvT AUBP 
TAUBP?*0 • 

GO TC 130 

C FIT cXPONEMIAL APirjF. 

120 Xl = 5CALt»< X ( I + l )-X3 ) /ALPHA 
X2«SCALE*(XrA--X(I) )/ALPhA 
P12 = P (I )-P (I ) 

PIHI = P( I) ♦HC I ) 

IFIPIHI.GT.ETA) GO TO j.2S 
C USE POWER SE.-<Ic:S REPPESENTATICN 

PI2HI2=PIHI-'P iHl 
PIA^iA=Pi2hl2=^Pi2Hi2 
X12=Xl«Xl 
X22=X2«X2 
X1A= X 12=?X1 2 
X2^ = X22=PX22 
0N3HI2=1 ./ (r.( I )-H ( I ) ) 

T£R/il=I.+LG;<.ST iX^PlZHl 2 4 -CC.^aTA«PIAHI A 
T c R 2 = C uN5 T 1 =F P 1 2 - L". r.h I 2 + C O.o T 7=f P 1 2 V p 1 2h i 2 
TE*<;i3=(C0r ST3=?C\:nl2 + C j'oT9^PI2 )«PI2 
TA'J3P = (F (i+l)“F (i ) ) / h( i )-:G:\ST1=!=H( I 
l(TA■JL.?(I + l)-(TER,'.i + 3,>XTEK^;2«>2.l + 5.=l=rER^3«X2A)- 
2TAUDF ( I )=^'( TE^.*a+3.^TcK.';2-X12+i. =fTEKM3tXlA) ) 

TAU3P = SC aLE=!^T AuEP /ALF riA 

TAU3FP=(SCALE/ALPnA)=!=-2=i‘CijGSTi-h(I)^(TAU0P(I)+Xl*(t).7TtRM2 + 20.*TER 
li13X=Xl2 ) “T At DP ( 1 + 1 )=?>,<! -X ( D. xT tP l•'2 + 20. =i=TEKM3X:X22 ) ) 

GO TO 130 

C USE HYPEkEDLIC FUmCTIOnS 

125 DtNQ>'. = PI2+SlNH(p(I)^r( 1 ) ) 

TAU3P= (TAUDP( I + 1)=PCC5H(P(1 )^'‘XL)-TAUJP (D-XCGSrilPI D^'Xl) M=P(i) / OENOM 
l+(F(I+l)-F(I)+(TAUjFlI)-TALDPlI+i))/PI2)/h(I) 

T A'J3 P = S C A L E=S= T AU b P / A L P H A 

TAU3PP=(SCALE=FP(1) / A L P + A )=?=«= 2 / DE N 0H=^'- { T AL OP ( I + l ) + SINH(P ( I ) * X2 ) + T AUO P 
l(i)’i=SINH(P(I)=i'y.l) ) 

130 CONTINUE 

EPS = DELTA«DELT A«A3o ( TAJrJPP) 

IFIEPS.GT. .51 £PS = .5 

IF(IFLAG.EO.l) FP(L#^) = ^P(L>K.)-EPS•+TAJfcP 
IF { I flag. EC.. 2 ) P P( L» M = FP( L>h ) + EPo*TAUEP 
XEAP=X(K)-.5+ JELTi 

/*• a. a. 

T 

C *** DETER fll ME INTERVAL 
C 

I = K-1 

C ♦♦♦ 

C ***■ DETERMINE TYPE OF FIT 
G 

211 TEMP = 3(I)=^e(I+l) 

I F I T E I* ' P . N E . 0 0 ) G C T 0 2 2 0 
C FIT rITH linear FUnCTIJiN 

TAUBP=(F(I + 1)-F(in/(H(I)*ALFHA> 
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Tt J^f' = SCALt’i‘TAu':: P 

Tt'JfiPp* j. 

Go T C 2 3 J 

C Fir ^.ITH EXP:*.;:MIAL SPLll.t 

220 Xl = 3CAL£*( X ( I+I )-A S-iP) / iLPHA 
/2 *SCAL£^(J‘jA'-X(I) )/AlPmA 
P12 = P ( I )=i=P ( I.) 

PIHI=P( I ) 

Ir(PlHI.GT.£TA)G'JTC225 
C ^ bib PunE*^ ifc-<ItS PbPPEbEi’iTATIbb 

P12.-.12 = P Ir 1=?^ IHI 
PiHHlA=PI2Fl2*Pl2HI2 
xl2= « 1-Xl 
X22= X 2=XX2 
AXA=x 12^=X12 
X2A= i 22'Xx22 
Cr,3H12=l ./ (r:( I)-h(I ) ) 

TER.’', 1 = 1 . +C :jr.5T3-PI 2 --i 2 + CLV<Sl A=I^P14HI A 
TER'12 = C Li.‘.STl-i=P12-r '.Hr I 2 +C oNS T 7»i' P 12'X P 1 2H I 2 
T E M 3 * ( C : I ■: S T 3 - 0 - H I 2 + b J N i T 9 -r p 1 2 ) P 1 2 
TAUiP=(r(l + l)-F(n)/h(l)-Cu,,iTl'XH(I)* 
l(T4UL.'P(l + i)^{T£'"i + 3tTrEK,:'2X‘;^i't. + !)#TrcPI'3'!'X2‘i)~ 

2T A-JD?( I )-( TEP<1 + 3.=?T*.k ",2=!=xi2+ 5. =4‘TEH:13*X 19) ) 

TAU:}p=5CAL£^TMb£r/ALrH4 

Tao3PP= { scale /ALP-^A)--A^CG iiSTl«H ( I ) ( TAUDP ( I )«X1=X(6 •>!‘T£I^C(2+20.*TER 

if*. 3''Xl2)“rAoDP(i + l)~x, 2^(o,ifXtFi''2 + 20«^TEPM3X^x22)) 
o J T Li 2 3 0 

C U5£ hYPE'SD'jLiC FJi\CTI0iS 

225 0EN,.T' = P 12=f Si p{ i ) ) 

TA'JiP = I TAbOP ( i + 1 ) vCSSHl P ( I )-Xc )-T AbOP ( I )i=Ci:.SHlP( I) ’XXl) ) =»=?( I ) / OEMGiM 
1+ t F ( i + 1 ) -F ( I) + n AL.j?( i )-T AbOP (1 + 1))/PI2)/H(1) 
TAU3P--5CALE^TAbcP/ALPri4 

TA-J,-iP? = ( SC ALE^P I L ) /ALPriA)’»^’«=2/Dt:I,3i'1* ( T AbOP ( I + i ) » S I N H ( P ( I ) =«' X2 ) + T AUO P 
l(I)=i‘S14H(P(I)-Xl) ) 

230 C:..MTINiJE 

EPS = DEL r A^GELT A=fAti ( TA'jBPP ) 

1F(EPS.GT. .5) bPS = .5 

IF(IFLAG.EO.i) FP<L^K)=FP{L,K) + EPS-TAiJEP 
1F(1FLAG,E0.2) FF(L>K)=FP(L>K)-EPS=xTAUSP 
100 CGMTIMJE 
K E T U P. N 
END 


SUS.PO'oTInE S^^LExP(X.i F>rPA/FPE^''’Pl>t?»TAbOP#P»H^ALPHA) 

D i XE N S I 3N X ( 2 ) » F { 9 ) # E 1 1 ) » T A Uu P ( 1 ) > P ( 1 ) # H ( 1 ) 

Di "',EnSI J,N E( i JvJ) >DI AGdOo ) , IL IP L ( iuO ) > ILIr-' J ( 100) VO ( 100) j 0( 100 ) 
CGPiiiuN CuNSTl»Cur,iT2^bJNST3^CLiNST9>CLiNST5^CG>'iST6^C0NST7jCCji'l3T6>C0N 

1ST9 

kEAL LAMdAF; 

c 

C InITIALIZaTI's-. N 

c *** 

HH=1. / (6.=5^ (X( 2)-> (DM 
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'a.0 — 11 .»MM 
AL-i= .♦HH 

A3»2»*HH' 

FPA=AC^F(1)+A1’9'F(2)+A2^F(3)+A3=«‘F(A) 

FPB = -( A3»F (NPl-3) + i?.’^F (N?l-2)+Ai*F( SP1-1) + A0«F(NP1) ) 
IF(APS(FPA).LT.I. flC ) FPA = 0. 

IF( Ai5(F?b) .LT.l.E-l'J) FP.i = u. 

N=NP1“1 

EPS=l.E-b 

ETA=.07 
Si 6‘^ A = 100. 
alpha=i. 

IT»^.AX = 5 

SCALt = 2./ (X( ) ) 

ICD'j!- T = .0 
Du ^ 1 = 1 # 

H(1)=X(I+1)-<(I) 

4 H(I)=SCAL£*ri(I) 

L u j I = 1 j < 

5 P(I)=0. 

C 

C DtFIt‘'<£ cl'S 

C 

b(l)=(F(2)-F(l))/H(l)-FPA/SCALF 
1F(\.E0.1) Gj TC 11 
DG 1C I = 2fN 

10 d(I)=(F(I+lJ-F(U)/H(I)-(F(I)-r(I-i))/h(I-l> 

11 £(N?l) = FPa/5CALfc-(F(!.Pi)-F(N) )/H(U) 

C *4=4: 

C *** DETEF'llNE ^HICH ItiTES'v'ALS SHGULD bE FIT aITH 
C LINE SEG.-iEr^TS AND INTERVALS SHuULO BE 

C FIT <.ITri EXPONENTIAL SPLINES 

C K = NG.-EEP uF EXPONENTIAL SPLINE INTERVALS 

C ILINL(I) = LEFT rlANJ ENDPCInT OF ITF SPLINE INTERVAL 

C ILlNU(i) = RIGHT HA^D ENDPOINT UF ITH SPLINE IMTEkVAL 

C 

K=0 
IL = 1 

14 CCNTINUE 

CD 2C I=IL,N 
TENP=3( I )^6( I+l) 

I F ( TENP » Ew . 0 » ) GO TO 2J 
^. = < + 1 

ILI.NL(K) = I 
DOifcj = i>rt 
TE.1? = b ( J )4=3( J+1 ) 

IFtTENP.NE.O. ) GO TO 15 

ILINU(-<)=J 

GO TO 29 

15 IF(J.NE.N) GO TC lb 
IL INu(>4) =N + 1 

GO TC 30 

16 CCNTINOE 
20 CCNTI.N'JE 

G u T u 30 
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o r> f > o r» r j o o o rs o 


ECUATILnS 


29 IL«J 
G L T w 19 

30 CGNTliJE 

*** 

»»♦ SET L? SPLINE 

♦ ♦♦ 

39 Di?11 = 0.- 

IC3L»f.T»ICCij.M + l 

Ou 90 

PI=P(I) 

HI=4H( I) 

PIHI=PI«H1 

PI2*Pi=?PI 

IF (PI-( I. C.T.ET A) -jy TC 39 
U:jt PuwE" SE-'IES ^cPr E SENT ATI GN 
?12riI2 = PiS^'’iI 
PI9H19=Pi2HI2=i‘PIEHU 

r( I> = (1 .+C:n jT5vFI2HU + CCNr-T9>^PI‘tHl9)<'|-I^C0NSTl 
DI*( i .+CaMSTi«Pl;?Hl2+C j.NST6«Pl9Hl9 ) vHI><=C3i\ST2 
01 Ab( I ) = + Ji 

GG rc 90 

=«==?><' USE HYPt^SGLiC rU.’»CTIG'iS 
39 j.‘.3Y‘hI=1./HI 

CI=CCSH( PHI) 

PI3YSI=PI/SI 

c( I) = { jNEYhl-PIEYS: )/PI2 
Dl = ( PI3YSHCr-C\3YHJ. )/pl2 
DlAGm = 0If-.i + DI 
90 Li, 11 = 01 

01 AG( KPl )=Di 
E ( N P 1 ) = 0 . 

***■ ALTc=< SPLINE tOUATIC.NS 

Ir(5<l).EtJ.C. ) E(1)=C. 

IF(.,.E0.1) Gj TC 9o 
DO 9f> I = 2f i 

IF(3(I)«i\t:«0a) Gwi Tj "t3 
E(I-1)=0. 

E(I)=C. 

95 CCNTIN'JE 

96 IF(3(NP1).£0.0.) £(N)=J, 

SCLVE SPLINE SCUaT lOi.S (SEE AHLdERG, NIlSGN AND WALSH) 

Pk=0IAG(1) 

w(l)*-E (1 ) /PK 

U(l) = 3 ( D/PK 

DG 99 KK=2,NP1 

Pk=E ( <<“1 )*0< ) + 0i AG (t<.K ) 

0 ( K r< ) = - £ ( K .•< ) / P ^ 

9 9 U(<‘0 = (3(Nr;)-E(K,<-l )>t-U(KK-l) )/PK 
TAiJDP (NPl ) =U( NPl ) 

Du 5 1 L = 1 # N 
K^=NP1-L 

51 TAUDP (.\K ) = 0(.-<.N)=frTAL'DP (^K+l )+U(NK ) 

/ 
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C . 

c PLOT £X'pQf.£NTUL SPLlNt 
C 

5-V CQNTISUE 

GJ TC. 3o00 

IFdCGUNT.Gc. IT,‘'.a:0 go TO 30CC 

c 

C ♦»» UPDATE P»i 
C 

IFLAG=D 
DO 80 I = l#(< 
iL*iL ru( I ) 

IU*ILI i:J( I ) 

t£,'1P = tajl»f(:l )-e(1l ) 

IF (TE,-.p.oc .0. ) GC TG 64 
C =r=TT d^TAL'tiP^O AT LfFf dAf. J EiOPQIf'1 
IFLAG=1 

L A'",':jA 5 = A,''AX1( A.<S ( U IL ) ) #uIA&UL >=!'AbS < TAUDP ( IL ) ) ) / A8S(TAUUP( IL + 1 ) ) 
FT ILDA = 1./S0-‘T( LA,'..-Ar'* H II ) ) 

PTIL DA= A. AXl { PT1LCA> r( ID ) 

P ( IL) = P ( ID + J’-)EbA« ( ?1 IluA-P ( U ) ) 

64 ILP1=1L+1 
IUM1=1U“1 

IFnL.'-'.l.LT.ILPl) C-J TO 70 
DU or J=ILP1. lU-a 
Ir(TAijDP(*J)«'iEtv») Gl to 6b 
C TAUDP = 0 AT A-i INTE-iIOP POIGT 

IF LAG=1 

P( J-i !-p( J-i ) +EPS 
P( J) =P( J )+£P5 
Gu TO 63 

66 TE1P = TA0DP ( J ) ^B( J ) 

IF(7ti’',P.GT .0. ) cO TO 66 
C ^*4 a=«=TALOP<G AT ir^ IMEPiJK POIf-.T 
IFLAG=1 

LAMBa;;= A/i Ad( AtS ( ' ( J ) ) > 01 AG( J )« AL'b ( r AUCP ( J ) ) ) 
l/(2.=^AMAAl(Ac5(TAJDp(J-i) )^A-:>(TAUCP( J + 1) ) ) ) 

PTILDA=1. / S3^T( L J-i) ) 

PTlLDA=AMAXi(PTlLOA^F(J-i) ) 

P(J~1) = P{J-1> +G,\ E G *.=!= ( P r I L 0 A-P { 0 “1 ) ) 

PTILDA=1 ./S-;PT( LA'^'.JAF ?H( J) ) 

PTlLCi = AV.AXl(PTlLOA,P(j)) 

P < J ) = P ( J ) -*-0 yiE G A=? { P T U D 4-P ( J ) ) 

66 CONTINUE 

70 TE'*'.?=TAUDr ( I D vs( lU) 

I F ( T c P . G E . U . ) G TO 3 J 
C 3 tTai.D?<0 at PIGmT hANJ tP'tDPGlisT 

IFLAG=1 

LAM3Ak=ANAX 1( AES ( 5( it ) ) I AG( It ) «AbS ( TAUOP (IU}))/ABS(TAUDP( lUfil) ) 
PTILDA = i./S0<T(LAr;6AP-H(lJ.Mi)) 

PT ILDA= ANAXI ( PTILDA,F ( lui’-.l ) ) 

P( I J ••li ) = P ( lu '.1 ) + ChtGA^( PT I LGa-P ( lu.Ni ) ) 

80 CONTINUE 
♦ ^ ^ 

Cr^tC^ FOR EXTRANEOUS INFLECTION POINTS 

ww 

▼ *r *r 

IF(IFlAG«E0«0)60TC3000 
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c ♦♦♦ 

C SCALt ABSCISSAE 

C ♦♦♦ 

X • 

Du 93 1 = 1# ■’< 

93 >.lU»A'1AXl(AKJ»?(I)>PH(i) ) 

ALPHAC=AiAXl( K •'U/SIGhA#l. I 
ALpHA = AL>^nA»ALPHAC 
Du VA I*1#N 
Ht I)=rl( n/ALPHAC 
9 A £ ( I ) = 2 ( I )>rALPHAC 

B(NPi) = b (,‘tKlH'ALPHAC 
Gil T Cj 3 ^ 

C 

C Ku EXTRANEOUS INFLECTIjN POINTS 

C =?=«=<' 

c ♦»* 

C =TT?= r’)A*I.'io'1 r<U'19&R L)h ITtFiATION'j EXCfcciysD 
C ««* 

3000 RETURN 
END 


This report was prepared as an account of 
Government sponsored work. Neither the 
United States, nor the Department, nor any 
person acting on behalf of the Department: 

A. Makes any warranty or representation, 

expressed or implied, with respect to the 
accuracy, completeness, or usefulness of 
the information contained in this report, 
or that the use of any information, 
apparatus, method, or process disclosed 
in this report may not infringe privately 
owned rights; or 

B= Assumes any liabilities with respect to 
the use of, or for damages resulting from 
the use of any information, apparatus 
method, or process disclosed in this 
report. 

As used in the above, "person acting on behalf 
of the Department" includes any employee or 
contractor of the Department, or employee of 
such contractor, to the extent that such 
employee or contractor of the Department, or 
employee of such contractor prepares, dissemi- 
nates, or provides access to, any information 
pursuant to his employment or contract with the 
Department, or his employment with such 
contractor. 
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